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000009098 SIN N SININNNN S 


RARAVASVaNasRaN -o 


1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


1.1.1 FUNCTIONAL DESCRIPTION 


THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
TEST, OR A COMPATABILITY TEST. 


1.1.2 STRUCTURE OF PROGRAM 


a kl ec et a et ee ee ee ed ed eed ed eed 


87 
88 THIS DIAGNOSTIC IS A SINGLE PROGRAM 
89 FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
30 MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 
92 
93 1.1.3 MEMORY MAP 
Sao. .6e. a”. penne 
95 
. rrr ee ee 
97 0! i 
198 1 i 
199 i -vECTOR i 
2 AREA 
400 !-------------- 
1 1 
; ; 
STACK 
2000 |-------------- 
| ' 
i i 
i DIAGNOSTIC } é 
41000 : wecceccceccece 
i i 
i DIAGNOSTIC | 
i SUPERVISOR } 
72000 wewenececenene 
i i 
KxDP+ 
TTIT? accncunescnncese 
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SEQ 0006 


IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
cwremison TO RESIDE BETWEEN THE DIAG AND THE 


1.1.4 DIAGNOSTIC INFORMATION 


1.1.4.1 SCOPE 


THIS DIAGNOSTIC CAN TEST ONE CONTROLLER AND UP TO 2 ibs) y THE 2 DRIVES 
ARE ASSIGNED LOGICAL DRIVE NUMBERS 0 = 1 BY THE DIAGNOSTI 


THERE ARE 5 TESTS IN THIS PROGRAM: 


TEST 1 = BASIC Ag hig S 

TEST 2 = DATA RELIABILITY 

TEST 3 = WRITE COMPATABILITY/WRITE nin. 

TEST 4 = READ COMPATABILITY/READ UTILI 

TEST 5 = RANDOM/OPERATOR SELECTED SEQUENCE UTILITY. 


1.1.4.2 ERROR RECOVERY 


ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK FUNCTIONS 
UNLESS ERROR RECOVERY IS INHIBITED BY THE OPERATOR AT START UP TIME. 
THE READ FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 
AND 8 IN THE OPPOSITE DIRECTION). FOR MORE DETAILED INFORMATION ON ERROR RECOVERY 
PROCEDURES, REFER TO SECTION 3.0 (ERROR REPORTING) OF THIS LISTING. 


1.1.4.3 WRITE ERROR RECOVERY 
THERE ARE 2 , SELECTABLE WRITE-ERROR-RECOVERY as USED BY THIS DIAGNOSTIC: 
1. MEDIA/OPERATIONAL ELECtee ALGORITHM 
2. OPERATIONAL ALGORITHM 


BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO IDENTIFY 
MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 


TO SELECT THE oe ALGORITHM: 
ANSWER ‘Y* TO CHANGE (L) ? 
ANSWER 1"! TO BAD TAPE SPOT DETECTION (L) Y ? 


IF ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 
AND BOTH ALGORITHMS ARE BYPASSED. 


1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
SCOPE 


THIS Thee IDENTIFIES MEDIA RELATED WRITE ERRORS FROM 
OPERATIONAL ONES. 


ALGORITHM 
A WRITE RETRY SUBROUTINE IS Rey BY THE REC IvEROLE ERROR SUBROUTINE WHICH IS 


ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERR 
Hg A RETRY SUBROUTINE ATTEMPTS TO REWRITE THE RECORD IN SAME SPOT ON TAPE 


] 


—_-- SS _ -- noubscnianencatiadeatnlties 
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SEQ 0007 
284 
285 IF ALL 4 REPEATS ARE GOOD, THE RECORD IS CONSIDERED AS RECOVERED AND 
see A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER. 
288 IF ANY OF THE 4 REWRITE ATTEMPTS FAIL, THE ROUTINE WILL a . BAD RECORD, AND LO 
289 BAD SPOT AT THAT RECORD_NUMBER, THE ROUTINE WILL THEN ATTEMPT T 
290 WRITE THE RECORD AGAIN 3 INCHES FURTHER TAPE AND 
34) RETRY THIS SEQUENCE 4 TIMES, FOR UP TO 4 REPEATS EACH. 
295 IF A RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERRORS AFTER 4 RETRIES, 
Soe THEN THE ROUTINE WILL ERASE THE RECORD AND REPORT RETRY FAILED ON BAD SPOT. 
296 js | RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO cat THE WRITE 
297 RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETR 
a UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 
300 TWENTY (20) BAD , he MAXIMUM ARE ALLOWED PER BOT TO EOT PASS OF TAPE. 
301 WHEN 20 BAD SPOTS HAVE BEEN LOGGED, WETHER ON THE SAME RECORD NUMBER OR NOT, 
302 TAPE IS CONSIDERED DEFECTIVE: A BAD TAPE OVERFLOW MESSAGE IS PRINTED 
4 AND THE UNIT IS REWOUND, THEN DROPPED. 
305 DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL TAPE 
306 POSITIONING OPERATIONS: SPACE tert ERASE. IF A POSITION ERROR 
307 ps DETECTED IN THE STATUS WORD DURING THOSE OPERATIONS, THEN THE ts tan ATTEMPT IS 
a5 AN APPROPRIATE UNRECOVERABLE ERROR MESSAGE IS PRINTED AND THE UNIT IS DROPPED. 
310 ALL BADLY WRITTEN RECORDS LOGGED WITH ee Covent ERRORS ARE ERASED 
311 UNTIL RECOVERED, INCLUDING THE RECORD AT THE 20TH BAD LP 
31¢ SO THAT ALL RECORDS LEFT ON TAPE ARE KNOWN GOOD WRITTEN RECORDS. 
314 BAD SPOTS ARE ERASED WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY GROUP. 
nz Y Gr 433m, OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 
317 THAT LONG STRETCH OF BAD TAPE WOULD THEN BE LOGGED WITH 20 
a4 BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 
$59 BAD SPOTS REPORTS 
322 IF THE PRINTING OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE A 
323 poet ie tes AS THEY ARE DET scars SINCE THE BAD RECORDS ARE creek A tes RECOVERED, 
324 BAD SPOT ACTUALLY PRECEDES THE REC THAT IDENTIF 
325 THE NUMBER OF REPEATS AND RETRIES ATTEMPTED IS PRINTED, FROM unicH Tine 
$56 LENGTH OF ERASE GAPS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETRY. 
328 THE shies ttn REPORT PRINTED AT THE END OF vest 2 OR UPON A ‘PRINT’’ REQUEST, 
329 CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT PASS OF TAPE. 
330 IN THAT REPORT, ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS, EXCEPT FOR 
331 THE NUMBER OF 9 ght IT RELATES TO A *BOT EO 
332 FOR TH *“TAPE "“ IS_A WRITE PASS FROM BOT TO EOT, OR FROM 
333 BOT TO WHERE THE “DIAGNOSTIC IS HALTED pitts REACHING EOT. 
334 DON'T CONFUSE THIS WITH A PASS BY THe RVISOR WHICH IS er eo. AS A RUN THROUGH A 
$3 ON ALL UNITS SELECTED. THOSE PASSES MARE IDENTIFIED AS *PASS*’ “EOP**. 
337 THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 
$38 COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 
340 THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 
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EEELEESS 
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35 
35 
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SEQ 0008 
AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. 


TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y* TO: CLEAR COUNTERS (L) Y ?. 
THE BAD TAPE SPOTS COUNT IS THEN CLEARED WHEN WRITING THE TAPE FROM BOT. 


IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 


SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 
BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 
OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 


THE SAME RECORDS MUST BE WRITTEN FROM TAPE PASS TO TAPE PASS 
FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 


EXAMPLE OF A PRINT OUT FOR A BAD SPOT ON TAPE: 


CVTSE SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 
WRT CMD FAILED = UNIT 0 PASS: 1 RECORD: 6 
PREVIOUS CMD ~~ Dn 

PKT TSBA Tcc 


CMD 
osesce 002406 000000 100210 4 


STO XST2 XST3 XST 

000350 000002 100400 sete 000000 
SUSPECT BAD SPOT AFTER 1 - 2 REPEAT 
SUSPECT BAD SPOT AFTER 2 RETRY. 1 REPEAT 
SUSPECT BAD SPOT AFTER 3 RETRY, 1 REPEAT 
SUSPECT BAD SPOT AFTER 4 RETRY, 3 , REPEAT 
RETRY FAILED ON BAD SPOT...ERASED! 

SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 
SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 


b 


CVTSE SFT ERR - ad ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

WRT CMD FAILED = UNIT 0 PASS: 1 RECORD: 10210 

Ants al a = A ree 


CMD TSSR 
100205 002406 000000 100210 4 
026600 


000000 
+t tg > 


STO XST XST3 XST4 
000350 000002 100010 000000 000000 
RECOVERED ON RETRY # 1 


DR>PRI 


UNIT 0 _ PASS: 1__ RECORD: 10210 
BYTES WRITTEN 0,272.279,691 
BYTES READ REV 0,301,123,654 
BYTES READ REV 0,301,120,381 
WRT RDR RDF 
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1.1.4.3.2 


RECOVERABLE ERRORS 1 0 0 
UNRECOVERABLE ERRORS 0 0 0 
WRITE RETRIES 3 


2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD #: 


SPEC COND HARD FATAL COMPARE 
2 0 0 0 


SEQ 0009 


DR> 
THIS ong. 
RECORD YY RECOVERED ON 2ND RETRY GR ouP 
THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5 AND 6 
RECORD 10210 RECOVERED ON 1ST RETRY OF 4 a REPEATS 
3 WRI =F GROUP RETRIES ATTEMPTED, RESULTING I 
1 RECOVERABLE WRT ERR FROM RECORD 10310 
2 BAD SPOTS BETWEEN RECORDS 5 AND 6 
OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 


WHEN THIS +e IS SELECTED, THE TSVOS WRITE RETRY COMMAND 
IS ISSUED UP TO 16 TIMES OR UNTIL RECORD IS RECOVERED, ON 
ITE RETRY COMMAND 


C AB CONSISTS 
OF A SPACE REVERSE OVER THE BAD RECORD, THEN AN ERASE OF ; INCHES 
OF T AND REWR COMPOSITE COMMAND 
DOES NOT ALLOW THE DETECTECTION OF BAD SPOTS ON TAPE. 


THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 


IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 


A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 


1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 


A_NUMBER OF SUPERVISOR TIMING DELAY MACROS, oe AS WATCH DOG 


DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 
FOR THE OUTER LOOP 


pale AN INLINE NESTED LOOP PAIR. THE COUNT 


TH 
S_ FROM THE Regt ARGUMENT SUPPLIED BY THE DELAY CALLS. 
THE COUNT FOR THE INNER LOOP COMES FROM THE FIXED ‘HEADER’ 


NT *‘LSDLY*’ 
AS THE DIAGNOSTIC IS RUN ON 1 ac CPU'S, THESE DELAYS WILL 


VARY IN LENGTH WITH MEMORY SPEE 


IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 
UNIT IS glia ned ALL TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED 
TO MATCH MEMORY SPEED AND NOT RESULT IN TIME-OUTS, BY PATCHING 


THAT FIXED DELAY ELEMENT “‘LSDLY"*. 


A PRESET COUNT - 500 RESIDES AT “LSDLY*’ IN LOCATION 2116 OF THE 


“HEADER’’ SECTION 


1.2 SYSTEM REQUIREMENTS 
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ae oe 
ri 4 1.2.1 HARDWARE REQUIREMENTS 
459 
460 PDP-11/23 PROCESSOR WITH 32K OR MORE OF MEMORY 
461 CONSOLE DEVICE (VT52,LA36,ETC.) 
46 PROGRAM LOAD DEVICE 
46 TSVO05/TSO5 
464 ; 
465 ; 
186 1.2.2 SOFTWARE REQUIREMENTS 
468 
469 DIAGNOSTIC SUPERVISOR 
470 
471 
472 
ri 1.3 RELATED DOCUMENTS AND STANDARDS 
475 
rs } DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 
478 1. CIQPMAO XXDP+ PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC 
ri DATE: 14 JULY 1980. 
481 2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001 
Pe DATE: AUGUST 1982 
484 3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSV0S5S-TM-001 
re +4 DATE: AUGUST 1982 
487 4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVO5-IN-001 
488 DATE: AUGUST 1982 
rr 4 
43} 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
493 
rt ORDER OF HOST CPU DIAGNOSTIC USAGE: 
rt 3 1) CONTROL LOGIC PROGRAM = ALL TESTS. 
re 4 (VISA, VTSB,VTSC.VTSD) 
no . 2) DATA RELIABILITY PROGRAM: 
502 A) BASIC FUNCTION TEST. 
503 B) DATA RELIABILITY TEST. 
504 
505 
506 1.5 ASSUMPTIONS 
44 eceececece - 
509 THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
510 PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 


511 DO NOT FUNCTION PROPERLY. 
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VTSA,VTSB,VTSC, AND VTSD HAVE ALL SUCESSFULLY RUN WITHOUT ERRORS. 


SEQ 0011 
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| 
| SEQ 0012 
516 
| 317 2.0 OPERATING INSTRUCTIONS 
| 3 
361 THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
258 FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 
524 COMMANDS 
22 eceoeeecce 
527 THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNT IME SERVICES 
528 (SUPEPVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
329 BRIEF vESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 
331 COMMAND EFFECT 
533 START START THE DIAGNOSTIC FROM AN ja be STATE 
534 RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
535 CONTINUE CONTINUE AT TEST WAS a (AFTER *C) 
536 PROCEED CONTINUE FROM AN ERROR HALT 
537 EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
538 ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
539 CONSIDERED TO BE ACTIVE AT START TIME 
540 DROP DEACTIVATE A UNI 
PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC) 
DISPLAY oye A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS 
ZFLAGS CLEAR ALL FLAGS 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE eo so 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF ‘‘STAR 


OPERATOR COMMANDS 


Lae TSVOS DIAGNOSTIC IS A PDP=11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
PDP=11 PROGRAMMER® S MANUAL "’CIQPMAO XXDP+ PROGRAMMERS MANUAL, NUMBER 
AC=S296A~AC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC XXDP MEDIA 


(HMDLBO XXDP+ DL MONITOR 28k 
cv A T0 


ENTER DATE (DD-MMM-YR): ‘°* ENTER DATE OR JUST <CR> “* 
shunt ere 153726 


? ee < ae 


LS 
THIS 1S XXDP*. TYPE “'H"’ OR "H/L*' FOR DETAILS 


VTSEAOBINDRS LOADED 
DIAG. RUN-TIME SERVICES REV D. APR 79 
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| SEQ 0013 
573 CVTSE-A-0 
574 TSVOS DATA RE ABILITY 
575 UNIT IS TSVOS 
379 
578 SWITCHES 
te @e2eaencr eee ee 
581 THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
382 THESE SWITCHES ARE APPENDED T LEGAL COMMANDS. ALL OF THE LEGAL 
58 SWITCHES ARE TABULATED BELOW WITH A-BRIEF DESCRIPTION OF EAC 
284 IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER 1S DESIGNATED BY “DDDDD". 
| 386 SWITCH EFFECT 
588 /TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 


THE saat +e 1S A STRING 


BE RUN. ALL OTHER TE NOT BE 
/PASS : DDDDD EXECUTE DDDDD PASSES <DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. 


/EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP oat THOSE Units SPECIFIED 
IN THE LIST. EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5, id: itt 12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1=5/PASS: 1000/EOP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) a 5 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF - 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


START x x x x x 
RESTART xX x x x x 
CONT INUE x ; x 

% 
ADD x 
pia ae A 





- 


-——————— 


| 
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FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL Sanne tos SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 


E S, 
COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST Reyes (FIRST LEVEL pale we 
ERROR TYPE, NUMBER, PC, TEST UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS” (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL’ ON ERROR 

UAM UNATTENDED MODE (NO MANUAL gt yet 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


N 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS : LOE : IER:BO0E 


2.1 HARDWARE PARAMETERS 


ON A *'N'’ RESPONSE TO_‘*CHANGE HW?°*, THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSDB = 172520 WITH A VECTOR = 224 AND DRIVE=0. 


ON_A ‘'Y’' RESPONSE TO “‘CHANGE HW?'* QUESTION, ovine 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE PETURN RESPONCE. 


SEQ 0014 


RA AE ROR peenta cg FEE 
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SEQ 0015 
687 
os TSDB ADDRESS (0) 172520 ? 
oy VECTOR (0) 224 ? 
24 SELECT DRIVE 0-1 (0) ? 
694 THE VALIDITY OF THESE PARAMETERS CAN Pe CHECKED BEFORE RUNNING THE TESTS 
695 BY SETTING THE FLAG “‘ADR’’ ON A STA, OR CON C 
696 THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 
697 AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS ay ADRRESS 
698 OF THE TSDB(S). IF NO RESPONSE, IT DROPS THE UNIT(S) IMMEDIATELY 
244 WITH THE FOLLOWING MESSAGE: 
701 BUS TRAP AT XXXXXX ( XXXXXX = TSDB AD ) 
me INTERFACE BAD OR NOT SET TO ABOVE ADDRESS. 
704 ON A RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR NOT 
705 ON-LINE ARE DROPPED x | > aie THE HARDWARE TESTS SHALL THEN 
~ BE RUN ON RESPONDING UNITS 
708 IF THE ‘‘ADR’’ FLAG IS NOT SET, THE READY AND OFF-LINE et OF THE 
709 DRIVE IS CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 
710 TO WARN THE OPERATOR” OF DRIVES BEING NOT READY OR OFFoLINE. THESE DRIVES 
a SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 
at 2.2 SOFTWARE PARAMETERS 
715 
716 THE FOLLOWING ore ARE ASKED WHEN ONE ANSWERS YES TO THE CHANGE SOF TWARE 
717 QUESTION ON A START, RESTART,OR CONTINUE. 
718 THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 


CLEAR COUNTERS (L) Y ? 

RESET RANDOM VARIABLES (L) N ? 
PRINT RECOVERABLE ERRORS (L) N ? 
HALT AFTER EACH CMD (L) N ? 
INHIBIT RECOVERY (L) N ? 

BAD TAPE SPOT DETECTION (L) Y ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RFC ERROR REPORTS (L) N ? 
CHANGE CMD SEQUENCE (L) N ? (SEE NOTE1:) 
DEFAULT SWITCH SETTINGS (L) Y ? 
100IPS (L) N ? 

WRITE BUFFERING (L) N ? 
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READ BUFFERING (L) N ? 
ANSWERING NO TO THE DEFAULT SWITCH QUESTION WILL CAUSE THE 
100 IPS QUESTION TO BE ASKED. 


fos Gusete YES TO THE 100 IPS QUESTION WILL INHIBIT THE LAST 
TWO QUESTIONS. 


ANSWERING NO TO THE 100 IPS QUESTION WILL CAUSE THE WRITE 
BUFFERING QUESTION TO BE ASKED. 


ANSWERING YES TO THE WRITE BUFFERING QUESTION WILL INHIBIT THE 
LAST QUESTION. 


ANSWERING NO TO THE WRITE "eS kacen QUESTION WILL CAUSE THE 
READ BUFFERING QUESTION TO BE ASKED. 
NOTE1: aneki QUESTION SHOULD BE ANSWERED (N) UNLESS AN 


F THI ES ANSWERED Y, OLLOWING 
QUESTIONS MUST BE ANSWERED OR DEFAULTED WITH A <CR> ONLY: 
ape at | CODE (0) 40 ? ”, ¢ aye sae *- (OCTAL) 


CMD/2 (D) 13 ? (DECIMAL) 
BRF COUNT (D) 1? (123K) (DECIMAL) 
# OF OPERATIONS (D) 1? (1-32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
CMD/3 - H ? (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 32000 ? (1=32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
CMD/4 (D) 3 ? (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2kK) (DECIMAL) 
# OF ete (D) 32000 ? (1=32K) (DECIMAL) 
PATTERN ( ,7? (0-8) (DECIMAL) 
CMD/S (D) oe (1-27) (DECIMAL) 
BRF COUNT (D) 204 (1-2K) (DECIMAL) 
# OF tate a (D) * 32000 ? (1-32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
46 (D) ary ? (1-27) (DECIMAL) 
F COUNT (D) 1 ? (1-2k) (DECIMAL) 
# OF OPERATI IONS (D) 1? (1-32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
CMD/7 (D) 1& ? (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2kK) (DECIMAL) 
# OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL) 
PATTERN (0- (DECIMAL) 
CMD/8 (D) "27. : (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 32000 ? (132K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
NOTE: THE Ri po thet oe NB INSERTS A Coes Tenis ic CODE OF 40 
AS THE FIRST COMMAN THE SEQUENCE TAB 


C D IN LE. A 
DIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD 
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SEQ 0017 


801 ENTER THAT CHARACTERISTIC CODE. A TOTAL OF 7 COMMANDS 
802 WAY BE ENTERED IN ADDITION TO THE SET CHARACTERISTICS 
803 COMMAND. If THE OPERATOR WISHES TO USE LESS THAN 7 
804 COMMANDS COMMAND MUST BE ENTERED AND THEN 
805 CONTROL £ ("Z) CAN BE ENTERED TC TERMINATE SOFTWARE. DIALOGUE. 
807 2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 
809 CODE — COMMAND DESCRIPTION 
811 }= DRI DRIVE INITIATE. 
812 2= RDF READ FORWARD. 
813 3 = ROR READ REVERSE. 
814 4 = WRT 
815 $= WIV  WRITE/VERIFY. IE. WRITE W RECORDS; READ REVERSE AND CHECK 
816 N RECORDS OF DATA: READ FORWARD AND CHECK N RECORDS. 
817 6 = SRF SPACE RECORDS FORWARD. 
818 7 = SRR SPACE _RECORDS REVERSE. 
819 $= RNR READ NEXT REVERSE, IE. SPACE FWD, READ REV. 
820 9 = RNF = READ NEXT FORWARD, IE. READ FWD, SPACE REV. 
821 10 = RPF = READ PREVIOUS FWD, IE. SPACE REV, READ FWD. 
822 11 = RPR —- READ PREVIOUS REV, IE. READ REV, SPACE FWD. 
823 12 = WRR WRITE RETRY. 
824 13 = RWD REWIND. 
825 14 = MBR = MESSAGE BUFFER RELEASE. 
826 15 = WIM - WRITE TAPE MARK. 
827 16 = WTR WRITE TAPE MARK RETRY. 
828 17 = SFF SPACE FILES FOR 
829 18 = SFR SPACE FILES REVERSE. 
830 19 = GES GET EXTENDED STATUS. 
831 gO = ERS ERASE 3 INCHES OF TAPE. 
832 21 = UNL 
833 $2= CLIN CLEAN TAPE 
834 23 = SCH SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, 0. 
835 200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 
836 G0 = ENABLE ATTENTION INTERRUPTS. 
837 20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS 
838 SEE T3V05/TS05. PROGRAMMING SPECIFICATION FOR *SESCRIPTION. 
839 25 = JMP JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE 
840 TABLE, WHERE N IS DEFINED IN THE BRE FIELD. 
841 THE NUMBER OF JUMPS IS ENTERED IN THE # OF OPERATIONS FIELD 
842 26 = DLY DELAY “NT MILISECONDS WHERE N IS DEFINED IN 
843 THE # OF OPERATIONS. 
B44 27 = END END OF COMMAND SEQUENCE. 
846 
847 2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 
PATTERN # DESCRIPTION. 
0 INCREMENTING PATTERN. 0 ~ 377. 
1 ALL rs PATTERN. 
2 ALL ‘O'S PATTERN. 
3 "1" BIT WALKING FROM R TO L IN A FIELD OF ‘O'S. 
i ‘0’ BIT WALKING FROM R TO L_IF A FIELD OF 8" 
5 ALTERNATING ‘"I"* AND "'O'' BITS WITH ALTERNATE BYTES COMPLIMENTED. 
6 ALTERNATING BYTES OF 000 AND 377. 





| . 2 
CVTSEAO TSVOS DATA RELIABILITY MACRO M1113 25-MAY-82 09:51 PAGE 5-6 SEQ 0018 


858 7 RANDOM DATA PATTERN. 
859 8 NO PATTERN GENERATION. 


cee SEGURO SSG Sa 
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: SEQ 0019 
| 86) 2.3 EXAMPLES OF SOFTWARE DIALOGUE 
86 
| 864 CHANGE HW (L) ? 
865 
| 866 MUNITS (D) ? 
868 TSDB ADDRESS (0) 172520 ? 
870 VECTOR (0) 224 ? 
872 SELECT DRIVE 0-1 (0) ? 
er 
875 IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
876 REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, 
877 FOLLOWS: 
878 
879 CHANGE SW (L) ? 
880 
$82 
883 2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 
885 A) RECEIVE PROMPT (DR>) 
886 B) ENTER STA/TES:1-2<CR> 
887 C) ANSWER HARDWARE QUESTIONS. 
888 D) PROCEED WITH THE FOLLOWING DIALOGUE: 
890 CHANGE SW (L) ? Y<CR> 
892 CLEAR COUNTERS (L) N ? Y<CR> 
893 RESET RANDOM VARIABLES (L) N ? <CR> 
894 PRINT RECOVERABL* ERRORS | (Ly N ? Y<CR> 
895 HALT AFTER EACH “MD (L), <CR> 
896 INHIBIT RECOVERY (L) <CR> 
897 BAD TAPE SPO T DETECTION. (L) 2 <CR> 
DISABLE INTERRUPTS (L) N ? <CR> 
INHIBIT RFC ERROR REPORT (L) N? <CR> 
CHANGE CMD SEQUENCE (L) N ? <CR> 
DEFAULT SWITCH SETTINGS (L) Y ? <CR> 


A) RECEIVE PROMPT (DR>) 

B) ENTER STA/TES:1/FLA:LOE: IER: ISR: IDU<CR> 
C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? Y<CR> 
CLEAR COUNTERS (L) N ? Y<CR> 
RESET RANDOM VARIABLES (L) N ? N<CR> 
PRINT RECOVERABLE ERRORS (L) N ? N<CR> 
HALT AFTER EACH CMD (L) N ? N<CR> 
INHIBIT RECOVERY (L) N ? N<CR> 
BAD TAPE SPOT DETECTION (L) Y ? N<CR> 


DISABLE INTERRUPTS (L) N ? N<CR> 





=e 
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INHIBIT RFC ERROR “wey (L) N? 


CHANGE CMD S 


SEQUENCE 
DEFAULT SWITCH SETTINGS tL) Y? 


Y<CR> 
N<CR> 
<CR> 


SEQ 0020 


2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


A) RECEIVE PROMPT (DR>) 


B) ENTER STA/TES:5/FLA: fle. ISR: IDU/EOP: 1000<CR> 


C) ANSWER HARDWARE QUEST 


IONS. 
D) PROCEED WITH THE FOLLOWING DIALOGUE: 


~ CHANGE SW (L) ? 
CLEAR COUNTERS (L) N ? 
RESET RANDOM VARI 


NCE (L) 
CHARACTERISTICS CODE (0) "40 ? 
CMD/2 (D) 5 ? 


BRF COUNT (D) 2048 ? 
# OF OPERATIONS (D) 10 ? 
PATTERN (D) 7 ? 


2048 7 
# OF OPERATIONS (D) 10 ? 
PATTERN ( »7? 

CMD/4 (D) 34 

BRF (D) 2048 ? 


2.4 EXECUTION TIMES 


2.4.1 SYSTEM CONFIGURATION 


PDP11/23 
MOS MEMORY 
LA36 

TSV05/TSOS 


2.4.2 TEST EXECUTION TIMES (2400 FT. TAPE) 


Y<CR> 


1000<cR> 


(REWIND) 


(WRITE) 


(END) 


I 20 MINUTES ASS. 
TEST 5 = RANDOM/OPERATOR SELECTED SEQUENCE Ty MINUTES PER PASS. 
NOTE: ALL EXECUTION TIMES ARE SHOWN FOR ONE DRIVE OEPRATION. 
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SEQ 0021 
975 
976 3.0 ERROR INFORMATION 
978 
979 
980 3.1 ERROR REPORTING 
HH} eeeceeeeeeececen 
983 ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDE A DUMP 
984 OF THE FOLLOWING INFORMATION: 
986 ERROR #, TEST #, SUBTEST #, PROGRAM COUNTER, UNIT #, 
987 COMMAND, PREVIOUS COMMAND, PASS COUNT, 
988 RECORDS FROn BOT, RECORD READ COUNT, TH f COMMAND PACKET, TSSR, 
989 TCC. TSBA RFC, AND THE EXTENDED STATUS REGISTERS 
990 (SEE 2.3.14.1 FOR LIST OF COMMANDS). 
992 STANDARD ERROR REPORT FORMAT: 
994 CVTSE SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 
995 (ASCII ERROR MESSAGE) 
996 XXX CMD FAILED = UNIT X PASS: XXXXX_ RECORD: XXXXX 
997 PREVIOUS CMD WAS * RECORD READ: XXXXX * 
998 CMDPKT TSBA are TSSR 
999 XXXXXK XMXXKKM XXXAKK XKXKKK XK 
1000 XXXXX 
1001 XXXXXX 
1002 XXXXKX 
1003 XSTO XST1 XST2  XST3 = XST4 
ioe XXXXMX XMMXMXXM XMXMXXKX XMMRXXKK XNNXXXXX 
1006 
1007 * CAUTION * 
1009 INTERPRET THAT “RECORD READ'’ COUNT WITH CAUTION 
1010 IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC, 
1011 TAPE POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 
lore neo re RIGHT WA HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 
1014 N TEST 2, IF DIAGNOSTIC Is RESTARTED OR CONTINUED, RECORD COUNT 
1015 Is RESET TO ZERO ALTHOUGH THE TAPE IS NOT REWOUND. THIS IS 
1016 NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 
1017 ON WHAT RECORD COUNT OF F WHICH UNIT THE DIAGNOSTIC WAS HALTED 
1018 BEFORE RESTARTING OR CONTINUING. 
1019 IT IS SUGGESTED THAT A ‘PRINT’’ BE REQUESTED WHEN HALTING DIAG 
1020 TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 
1022 EXAMPLE OF AN ERROR REPORT: 
1024 CVTSE SFT ERR 00009 TST 002 SUB 000 PC: 010606 
1025 RE COVERABL E ERROR 
1026 WRT CMD FAILED - UNIT 2 PASS: 2 RECORD: 254 
1027 PREVIOUS cH WAS ss 
1029 £50005 000324 609000 100210 4 
1030 051766 


1031 000000 


=e 


—— 
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SS995055 
Wy sett} 


ot et St SS ss Ss I BY OS 
WWW 
DONANEWN BOSSE 


RRRRRRRLRA 


ooooc0co 
w 


oooo 
MMAMMAMAAMA 
WHS OBNAUSEWN—O 


SRRRSS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


066 
067 
068 





3.1.1 


3.1.2 


3.1.3 


3.1.4 


3.1.5 


eh Se 


3.1.5.2 


SEQ 0022 


ea 
STO XST2 XST3_—— XST 
000350 090002 100004 000000 020055 


ERROR #1 = COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 


IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
Connect 3 SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


ERROR #2 = TSOS NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO Ly. TSOS, THE SUBSYSTEM READY 
BIT okt THE TSSR IS CHECKED. IF THE Ww is NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
rie ie usete BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 


ERROR #3 = NO RESPONSE ERROR: 


ONCE THE TSDB IS ee - TSOS HAS ONE foe i wre TO RESPOND 
OR THE PROGRAM REPORT RESPONSE ERROR. THIS IS A FATAL 

DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 
UNLESS THE IDU OPTION IS USED. 


ERROR #4 = NO INTERRUPT ERROR: 
COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 
THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 
SPECIAL CONDITION ERRORS: 

DURING EXECUTION, AN INCIDENT cues FORCING THE TSSR 


IF, 
SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
oon HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 


THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 

ERROR #5 = TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 
THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 

AND THE PROGRAM PROCEEDS NORMALLY. 

ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 


Soa 
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SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 

3.1.5.3 ERROR #7 = TERMINATION CLASS CODE 2, TAPE STATUS ALERT 


A — CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
TO_THE PROGRAM Seeenes OF dd 3M INCLUDE reat LET, RLL, EOT. 


SELZSFESE33 


E 
A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NURMALLY. 


wees 


3.1.5.4 ERROR #8 = TERMINATION CLASS CODE 3, FUNCTION REJECT 
bie SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF rot ARE 


MR, OFL, VCK, BOT, ILC, ILA, HIS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE 
UNLESS THE IDU OPTION IS USED. 


gs2Eesc 


31.5.5 ERROR #9 = TERMINATION CLASS CODE 4, RECOVERABLE ERROR 


TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 

THE FUNCTION , INITIATED. 7 ite PROCEDURE IS TO LOG THE 

ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


3.1.5.6 ERROR #10 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR 


TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND REISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 

IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


3.1.5.7 ERROR #11 = TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 


TAPE POSITION HAS BEEN LOST. THE oar VALID RECOVERY PROCEDURE IS TO 
REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
NUMBERS. IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND AND 

RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THe 

DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


WRIRINPININININININID 2 a oO 


WN 


BISAE 


3.1.5.8 ERROR #12 = TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 


THE SUBSYSTEM IS INCAPABLE OF yr PERFORMING es OR A 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO T 

FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR- 
MATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


a ak a a ed ed ek dd a kd ed ed sd ed sd ad ad ad td td ot 0 ot 2 2 ot a a 


ak ek at et ot I at os ot ot ot os a SP as ss So SS oe en es Ss SS SI SS os es ss os Ss es SS 


RRR ROW 
MEWN-—oOO 





a 
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— —) 2 — ss 


oa MUMMVUIVIUMUIW yy a? 
CS SSVSUFUNVSSSSE 


wr 


ao 


ee sk kek ee a de ed ed ed ed ed ed oe 8“ 2 ot = od 
Aner 
RANAZSSRISAF 


ee ee ee ee ed ed ee ed ed ed ed ed ed wd 


Go 00 Oo CO NY sy ANNO 
N=OCBNOURU 


Ww 


ERROR #13 = RFC NON-ZERO ERROR: 


AFTER aEXECUTION. THE yRESIDUAL FRAME COUNT IS NON-ZERO, THE 
Phton PORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
PROCEE 08 NORRALLY THE REPORT ING AND LOGGING OF THESE ERRORS 


ERROR #14 = RETRY LIMIT EXCEEDED: 


ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY. 


ERROR #15 = TOO MANY INTERRUPTS: 


. MORE THAN ONE INTERRUPT ary PER COMMAND, THIS ERROR IS REPORTED. 
THIS IS_A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #16 = CAPSTAN RUNAWAY: 


CAPSTAN - a! STOP WITHIN ACCEPTABLE er | AFTER LAST 

COMMAND. THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 
THE ERROR SO THAT THE DEAD TRACK FIELD IN sriceeee STATUS REGISTER 2 
WILL CONTAIN THE TACH COUNT WHEN THE TAPE S 

THIS IS _A FATAL DEVICE ERROR AND THE DEVICE MILL BE DROPPED FROM 

THE TEST CYCLE UNLESS THE IDU OPTION iS USED. 


ERROR #17 = DATA COMPARE ERROR: 


Y A ome pyle tm OCCURS py A WRITE/VERIFY ee 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
DATA WAS, AND PRINTS 1 THE BYTE AND RECORD NUMBER THE ERROR "OCCURRED 
ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRIN TED. 
THE TOTAL # OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. 
HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 


3.2 ERROR HALTS 


SRISSSSELRSE 


ERROR HALTS ARE SUPPORTED PER ee acn rere IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 


4.0 PERFORMANCE REPORT 


LSSELE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DODD 2 2 PP A PP PP SB SS oo os SS SS 


So 
™M 





UNIT X _PASS:XXXXX RECORD: XXXXX 
BYTES WRITTEN XXX,XXX,XXX, XXX 
BYTES READ REV XXX,XXX,XXX XXX 
BYTES READ FWD XXX,XXX,XXX,XXX 
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SEQ 0025 

1203 WRT ROR ROF 
1204 RECOVERABLE ERRORS XXXXX AXXXX = AXKXK 
iste UNRECOVERABLE ERRORS XXXXX AXXXXX = =—- AXXXX 
sor SPEC COND HARD FATAL COMPARE 
208 XXX = MXMXM = KAXKMK = AXXXX 
209 
210 
iu 
iH 
214 5.0 TEST SUMMARIES 
216 
$i2 5.1 TEST 1 = BASIC FUNCTIONS. 
Ah EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TSOS FUNCTIONS. 
221 SUBTEST 1 = SET CHAR, DRIVE INIT, GET STATUS. 

222 + SET CHARACTERISTIC 200. 

223 + DRIVE INITIATE. 

224 + SET CHARACTERISTIC 20. 

225 + GET STATUS 
226 + SET CHARACTERISTIC 40. 
$$. + PRINT TSOS MICROCODE LEVEL (PASS 1 ONLY) 

29 SUBTEST 2 = REWIND. 

30 + REWIND. 

3 + REWIND AT BOT. 

SUBTEST 3 = WRITE/VERIFY 


+ WRITE/VERIFY PATTERN 1. 


+++ +¢ 
r— 
“~ 
mm 
~ 
<= 
m 
z 
~ 
nm 
~< 
wv 
> 
~ 
4 
m 
PJ 
2 
- 
o 


WRITE/VERIFY PATTERN 0. 


SUBTEST 4 = WRITE TAPE MARK, ERASE. 
+ WRITE TAPE MARK. 

. WRITE 10 RECORDS 

+ 


IN 


ERASE 10 TIMES 
WRITE TAPE MARK. 
+ WRITE TAPE MARK RETRY. 


SPACE FILES 
+ SPAC 


RAR 


SUBTEST 5 


VERSE. 
R 


SUBTEST 6 


SPACE RECORDS. 
+ RE 


WIN a 
+ SPACE 7? RECORDS FORWARD. 
+ SPACE 7 RECORDS REVERSE. 
+ SPACE 7 RECORDS FORWARD. 


_— St Se tS SS SS = Ss Sh Ss Ss SS SS SS SF SS SS SS SS Eg SS SS Ss SS Ss Ss SS) En SS) SS SS SS Ss SS SP SS SY os 


POPEMPINPNNoNoNofPoNoNoNofohony» 


DADA AA AAA ES 
WONAMUEWN $0 OSONOAU Sw 
+ 
% 
> 
a 
mm 
S 
MIPIM. —— 
Ss es De | 
| anaes 
Pere 
mmmm 
nnn 
~~ wD 
om 





ns 
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ay 
mr 


Mrmonnonn 
ININLISELEAROROS 


Mronoronronoropoferororory 


SS 


a ek ek ed ed ed ed nd td ed od od 
NM 
co 
= 


Nm 
co 
Nm 


1283 


+ SPACE 7 RECORDS REVERSE. 
SUBTEST 7 - MUTE RETRY. 
REWIND. 


: WRITE DATA. 
+ WRITE RETRY. 


SUBTEST 8 = REAS REV RETRY. 
+ READ REVERSE. 
+ READ NEXT REVERSE. 
+ READ NEXT FORWARD. 


SUBTEST 9 = READ FWD RETRY. 
* READ FORWARD. 
+ READ PREVIOUS FORWAR 
+ READ PREVIOUS REVERSE. 


SUBTEST 10 = CLEAN. 
+ CLEAN. 
+ REWIND. 


SUBTEST 11 = Uni Te /vERIrY SWAPPED DATA BYTES. 
WRITE/VERIFY EVEN LENGTH (RECORD 1). 

WRITE/VERIFY ODD LENGTH (RECORD 2). 

SET DATA BYTE SWAP. 

WRITE/VERIFY EVEN LENGTH (RECORD 3). 

WRITE/VERIFY ODD LENGTH (RECORD 4). 

CLEAR DATA BYTE SWAP. 


SUBTEST 12 = READS gt DATA $F nage 


~++++44 


t+ tee eoeoeoeoe 
» 
m 
> 
.~ 
g 
r-] 
m 
3 
z 
J 
— 
o 


D 
READ FWD RECORD 4. 


SEQ 0026 
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130) 5.2 TEST 2 = DATA RELIABILITY. 

1303 1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
1304 SET CHARACTERISTIC 40 

1305 cutee 

1306 ITE 64 RECORDS OF RANDOM LENGTH AND DATA 

1307 2. WRIT iE AND a to COMMANDS ARE SELECTED “yf RANDOM AND ARE 
1308 EXECUTED A RANDOM NUMBER OF TIMES WITH RAND 

1309 gg ge AND RANDOM PATTERN UNTIL END OF TAPE IS + yy 
1310 3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED 
133 A. PERFORMANCE REPORT IS PRINTED. 

1313 NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
138 TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED. 
1316 

HF ab 5.3 TEST 3 = WRITE COMPATABILITY/WRITE UTILITY. 

1319 REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 

1330 AND RANDOM DATA FROM BOT TO EOT. 

1322 

iss? 5.4 TEST 4 = READ COMPATABILITY/READ UTILITY. 

4 REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 

1327 

1358 5.5 TEST 5 = RANDOM/OPERATOR SELECTED COMMAND SEQUENCE. 

1330 A DEFAULT SEQUENCE OF REWIND/WRITE/READ eaticen FWD/REWIND 
1331 OF ENTIRE TAPE IS EXECUTED ns RANDOM PATTERN 

1332 AND RECORD LENGTH OF 2048 BYTES OPERATOR CAN ENTER 

1333 SEQUENCE OF COMMANDS UP TO SEVEN IF TrlEY DON'T WANT 

138 DEFAULT SEQUENCE. 

1338 6.0 DEVICE INFORMATION TABLES 

1338 

1339 6.1 GENERAL 

1340 woeeese 

1342 THE TSOS TAPE SUBSYSTEM CONSISTS OF A TSVOS Q-BUS 

1343 CONTROLLER CONNECTED TO A TSOS DRIVE. FROM A SOFTWARE VIEWPOINT 

ie gt I Sen SAS IS UNIQUE (FOR A Q-BUS DEVICE) IN A NUMBER 

1346 

1347 A. ONLY ONE REGISTER MAY BE WRITTEN = TSDB (TAPE SYSTEM 

Ht re DATA BUFFER), 

1350 B. TWO REGISTERS MAY BE READ = TSSR AND TSBA (TAPE SYSTEM STATUS 

133! REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 

1353 C. COMMANDS ARE NOT WRITTEN TO THE Ret tf RATHER, COMMAND 

1354 POINTERS ARE at UL WHICH POINT TO COMMAND PAC ois SOME- 

1355 WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED B 

1356 THE TSO5S SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 

1357 PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 





—_——s 


m-—-- - -- -- --- Or eee Se 
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| SEQ 0028 
1358 
1359 1. COMMAND WORD 
1360 2. LOW ORDER BUFFER ADDRESS 
1361 3. HIGH ORDER BUFFER ADDRESS 
136¢ 4. BYTE COUNT 
1364 D. THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC~ 
1365 ESSARY TO DETERMINE WHETHER: 
1366 a). THE DRIVE TS READY 70 ACCEPT ANOTHER COMMAND 
1367 REVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 
1368 IF EITHER OF THE ABOVE CONDITIONS 1S UNTRUE AT. "JOB 
1369 D_INITIATION’ TIME,IT MAY BE NECESSARY 
1370 TO GET THE EXTENDED. STATUS REGISTERS TO DETERMINE WHAT 
1371 ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 
1373 E. EXTENDED STATUS REGISTERS ARE NOT READ, DIRECTLY FROM 
1374 DRIVE REGISTERS: RATHER, A “GET STATUS’ COMMAND 
1375 IS. ISSUED WHICH WILL ocAuse THE. S05. TO TRANSFER EXTENDED 
1376 STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 
1377 BUFFER ADDRESS. OF THE "GET STATUS" COMMAND. THERE ARE. FIVE 
1378 EXTENDED STATUS REGISTERS. SEE .3. 
1380 F. THE TSDB MUST BE WRITTEN WITH A DATO INSTRUCTION TO 
1381 PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 
1382 CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
1383 SUBSYSTEM INIT. 
1385 G. COMMAND PACKETS MUST RESIDE ON DIVIDE BY F 
1386 MEMORY BOUNDARIES CAS OPPOSED TO DIVIDE BY > OR WORD 
1387 BOUNDARIES) . 
1388 
1389 
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SEQ 0029 
6.2  Q=BUS INTERFACE SPECIFICATIONS 


TSVOS/ INT. UNIBUS 

TSO5 VECTOR ADDRESS REGISTER 

FIRST 224 772520 TSBA/TSDB 
772522 TSSR 





os 
SS555 
SRISAR 


a ak kk ek ek ed ed ed dd ed 
| ate ae-2e_ eae ae at De ae at et et et et et 


NOPONIPININNNRY ss 
BONAVUSWN— 0 OONOU SW O 


6.3 BIT DEFINITIONS FOR TSVOS/TSOS REGISTERS 


6.3.1 TSVO5/TSOS REGISTER SUMMARY 


(R/O) TSBA ! 


(W/O) TSDB 


(R/O) TSSR 


(W/O) TSDBX : 


XSTO ! 


xsT1 ! 


xsT2 | 


15 


gone f 


sA15! 


XST3 ! 


14 13 12 


town tenn tenes 
pAT4:A13:A12! 


tema twmn teensy 


! !1P14!P13!P12! 
SER oS oe 


! ! 0 !SCE!RMR! 
a ek 


teooe dome pomad 
ferei6 
‘ ' 4 ' 


! IRLS!LET!RLL! 
cs ££ 8 & 


' ? © icon! ©? 
a sf F 


town tonne tonn¢ 
«RCE: 0 0 : 


Seteunibawe 


11. 10 09 


08 07 06 


'A1T!A10!A09! 
ie ee 


!A08!A07!A06! 
» &£ § | 


1P11!P10!P09! 
coe. £8 


'P08!P07!P06! 
ae ee ee 


;NXM:NBA‘A17: 
Suneatpenntenets 
;P21:P201P19: 
juandaneduant 
teoetooetooe+ 
'WLE !NEF !ILC! 
i. 9 
Se ee eS 
'O!'0!0! 
Soh bet ee 
10 IMCF! O 


MICRO DIAGNOSTIC ERROR CODE 


te--t+ ¢eeetoeeetoee$} feeetfoen toes} 


‘MSP! !RCE! 0! 0 
usma = 6th fl—hlCUdlCY 


. & g 


1A16!SSR!OFL! 
pe 2 we 


tome tuoneadomad 


'P18! (TSDBX EXISTS ONLY 
eae ENABL 


: ILA: MOT: ONL 
pa Se ee 
‘REP! 0! 0! 
weha 
: O !RL7!RL6! 

> FF 
Gumebuembunne 

! 0 !OPI! 

' ' ' 
fowsefoanaepoaaes 


0! 
i 


TERMINATION CLASS CODES (TSSR TCO-TC2): 
NORMAL TERMINATION 


0 


NOw fSwh 


0 
1 
2 
3 


RESERY | ile FAILURE. SEE ERROR CODE BYTE (XST3) FOR FAILED FUNCTION. 


FATAL CONTROLLER ERROR 
FATAL CLASS CODES (TSSR FCO-FC1): 


+ MOV VED 
ABLE ERROR - TAPE POSITION LOST 


0S 04 03 


tooeetocetoeet 
1A05!A04!A03! 
a oe ers 
1P05!P04!P03! 
$oactonntonns 
'FCTIFCO!TC2! 
Re oe 


oS 


SEQ 0030 


02 01 00 


trom pfoeseteaot 
:A02!A01:A00! 
Gcun§unngenad 
!P02!P17!P16! 
' ' ' ‘ 
geomet aoe puaay$ 


ITCTITCO! 0 ! 
Te Mae et 


power poet mam 


WHEN 
! ! ED BY THE EXTENDED 
es FEATURES SWITCH ON THE M7196) 


IE !VCK!PED! 
Pe we ee 
pesretoeeotou=at 
ser:1e:e@ 
Bebe he 
eS 
'RLS!RL4!RL3! 
; § FY Y 
Ferree r ee fonns 
‘REV! TRE !DCK! 
: : : : 


goewoatwnaton=a + 
'WLK!BOT!EOT! 
‘ORE 
deme toawofoeay 
! 0 !UNC! 0 ! 
ae ee 
tone poerepfooey 
'RL2!RL1!RLO! 
a ae ae 
teem pooatounny 
!0! 0 !RIB! 
‘eet be oe 


WRITE RETRY COUNT : 


Sl Sek ete 


USED 
RESERVED FOR FUTURE USE ALWAYS READ AS A 0 


guneteantusat 


a 


PRA SACP Me ei Sie ees Er 
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SEQ 0031 
1461 
146 
tGi 6.3.2 TSVOS STATUS REGISTER (TSSR) 
1465 
1466 
Hrs 14 Q-BUS ADDRESS + 2 = READ ONLY 
1469 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
1471 !SC ! ! 0 !SCE!RMR! !NXMINBA!AT7! !AIG!SSRIOFL! !FCTIFCO!TC2! !TC1!TCO! O ! 
1472 ; 84 . SS Se 2-2 oe es 8. 2. 2 8 ae 8 a 
1476 
1475 
1476 BIT NAME TCC DEFINITION 
; phe “<= com ose Ss eeeaese ras 
1479 15 «sc Ss ry CONDITION. WHEN an’ INDICATES THAT 
1480 THE LAST COMMAND DID COMPLETE WITHOUT 
1481 INCIDENT. SPECIFICALLY, EITHER AN ERROR WAS 
1482 DETECTED OR AN EXCEPTION CONDITION OCCURRED. 
1483 EXCEPTION CONDITIONS CAN BE TAPE KS ON READ 
«__REVERSE MOTION AND AT 1 EOT WHILE 
1485 WRITING, E MAY ALSO BE SET ERROR 
1486 BITS CONTAINED IN THE TSSR REGISTER: SCE, 
1487 RMR, AND NXM. THE TERMINATION pe BITS ARE 
1488 SOMETHING OTHER THAN 0 (UNLESS RMR IS THE ONLY 
Lp 24 ERROR = SEE RMR). 
4] 4 = - RESERVED (ALWAYS A 0) 
1493 13 SCE FCO aap CHECK ERROR-SETS WHEN THE CONTROLLER DETECTS 
1494 AN ABNORMAL fied ton tag ITSELF DURING EXECUTION 
1495 OF IT°S FUNCTIONS AND THE PROBLEM IS SERIOUS ENOUGH 
be THAT A MESSAGE PACKET IS NOT STORED. 
1498 12 RMR Ss oe MODIFICATION REFUSED. SET BY 3 wee 
1499 WHEN COMMAND POINTER IS Paes INTO T 
1500 SUB-SYSTER READY (SSR) IS NOT SET. 
1501 THIS BIT CAUSES SPECIAL ConD It T NO NATION 
1502 CLASS (IN FACT, THE TSOS NEVER SEES THIS ERROR) 
1503 BE CAUSE SYSTEM WITH NO BUGS, Y 
1504 COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 
1505 NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
1506 OF EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 
oF 34 BUG. 
1509 11 3 NXM 4/5 NON-EXISTENT MEMORY. SET BY THE TSVOS WHEN 
1510 TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
1511 + DOES NOT pleaat MAY OCCUR WHEN FETCHING 
1512 THE COMMAND CKET, FETCHING OR STORING DATA, 
Uf OR STORING THE PME SSAGE PACKET. 
1515 10 NBA § NEED BUFFER ADDRESS. WHEN SE’, INDICATES THAT 
1516 THE TSOS NEEDS A MESSAGE BUFFER ADDRESS. THIS 
1517 BIT IS CLEARED DURING THE SET CHARACTERISTICS 





ae 


pee 
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1318 COMMAND (IF A GOOD ADDRESS WAS GIVEN). 

1520 09 Ai7 s BUS ae BIT 17. A17_AND A16 (BIT ae TRACK 
1521 THE LUES OF BITS 17 AND OF THE TSBA 
1522 REGISTER. LOADED FROM TSDB BITS 01-00 WHEN TSDB 
1367 IS WRITTEN. 

136? 08 Al6 S BUS ADDRESS BIT 16. SEE A17 (BIT 09). 

1527 07 ~=SSR S SUB=SYSTEM READY. WHEN SET, INDICATES THAT THE 
1528 TSVO5/TSOS SUBSYSTEM IS NOT BUSY AND IS READY TO 
13¢2 ACCEPT A NEW COMMAND POINTER. 

1531 06 OFL S,1,3 OFF-LINE. WHEN SET, ye — THE TSOS IS 
1532 OFF-LINE = UNAVAILABLE FOR ANY TAPE MOTION 
1533 COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 
1338 OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 
1536 05 FCI 7 FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
1537 a8 ARE USED TO INDICATE THE TYPE OF FATAL 
1538 ERROR WHICH HAS OCCURRED ON THE TSO05. gt 
1539 BITS ARE VALID ONLY WHEN SC IS SET AND THE 
1eat TERMINATION CLASS CODE BITS ARE ALL SET (iy 
F943 04 FCO 7 FATAL TERMINATION CLASS 00. SEE FCI (BIT 05). 
1544 03 TC2 s TERMINATION ciate BIT 02. THIS BIT, ALONG WITH 
1545 THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
1546 eae tae AN ERROR OR EXCEPTION CONDITION OCCURS 
1547 ON COMMAND. EACH OF THE EIGHT POSSIBLE 
1548 VALUES OF THIS FIELD REPRESENT A PARTICULAR 
1549 CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
1550 IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
1551 APPLICABLE, RECOVERY PROCEDURES. THE CODE 
1552 PROVIDED IN THIS FIELD IS EXPECTED TO BE 
1553 UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
1338 HANDLING OF THE CONDITION. 

1389 02. =«=1C1 S TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
1205 01 TCO S TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 
1560 00 - - NOT USED. (ALWAYS A 0) 

1561 

1562 

1563 

1564 

$4 Q-BUS ADDRESS + 2 = WRITE ONLY 

1567 SUBSYSTEM INITIALIZE 





| 
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SEQ 0033 
| 1569 
1300 6.3.2.1 TSVOS EXTENDED DATA BUFFER REGISTER (TSDBX) 
1572 
1573 
1874 Groene} toeeetoeetoee} feeetfocetoce$} foees 
1575 ‘BT! !0! 0! 0! !P21!P20!P19! !P18! (TSDBX EXISTS ONLY WHEN 
1576 tees ee ee ee 2 ee ee ee eee ENABLED BY THE EXTENDED 
LF 14 teen} foeetfocetoee} foeetoecet}oee} foees FEATURES SWITCH ON THE 7196) 
1579 
1300 BIT NAME TCC DEFINITION 
1582 15 BF - BOOT COMMAND BIT. WHEN WRITTEN TO A 1,WITH 
1583 SSR=1, CAUSES THE TAPE TO BE REWOUND ie a 
1584 THE FIRST TAPE RECORD TO BE SKIPPED, THE 
1585 SECOND RECORD TO BE LOADED INTO CPU MEMORY SPACE 
1358 STARTING AT LOCATION 0. 
138 14-12 RESERVED (ALWAYS A 0) 
1590 11-08 P<21:18> COMMAND POINTER BITS 21-18. WHEN THE TSDBX IS WRITTEN 
1591 AND SSR=1, THE DATA IS LOADED INTO BITS 21-18 OF 
1306 THE INTERNAL TSBA REGISTER. 
594 07-00 RESERVED (ALWAYS A 0) 
1595 
596 
1597 
HF 4. 4 6.3.3 EXTENDED STATUS REGISTER 0 (XSTATO) 
1600 
1601 
1602 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 60 
1604 'TMK! !RLS!LET!RLL! !WLE!NEF!ILC! 'ILA'MOT!ONL! 'IE !VCKIPED! !WLK!GOT!EOT! 
1605 ‘We 2 ew et ee 8 ee eet oe foo Poe ef ad ew et 5 ee ot 
1607 
1608 
1609 BIT NAME TCC DEFINITION 
a “= See === #3 3 38 eeeeeceece 


15 TMK $.2 TAPE MARK sad 4 a | WHENEVER A TAPE MARK 
WAS DETECTED DURING READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OR WITE TAPE MARK RETRY COMMANDS. 


RLS 2 RECORD LENGTH SHORT. THIS BIT nd be THAT 
EITHER THE RECORD’S LENGTH WAS SHORTER THAN THE 
BYTE COUNT ON READ Sag bea A SPACE RECORD 
OPERATION ENCOUNTERED A TAPE MARK OR BOT BEFORE 
THE pest tios COUNT WAS EXHAUSTED, OR A_ SKIP 
TAPE MARKS at Ss 


WAS TERMINATED 

ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT 

OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 





Pe 
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SEQ 0034 
626 
a4 13° «LET 2 s+ tae END OF TAPE. SET ONLY ON THE SKIP TAPE 
628 C D WHEN EITHER TWO CONTIGUOUS TAPE 
MARKS ARE DETECTED OR WHEN MOVI 0 0 T 
AND E FIRST R NCOUNTERED IS A_TAPE 


UNLESS THIS MODE OF TERMINATION IS ENABLED 
TMROUGH USE OF THE SET CHARACTERISTICS COMMAND. 


RECORD LENGTH LONG. WHEN SET, THIS BIT 
INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
WRITE OPERATION Sy ISSUED BUT THE MOUNTED TAPE 
DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
LOCK SWITCH ACTIVATED DURING THE OPERATION. 


oe So tae = FUNCTION. WHEN SET, INDICATES 
THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


- THE COMMAND salt the REVERSE _TAPE 
DIRECTION a! THE APE WAS ALREADY 
POSITIONED A 


T BOT 
- THE ISSUING. OF ANY MOTION COMMAND EXCEPT 
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SESSFERES 


o 
o 


1670 








09 


08 


07 
06 


05 


04 


03 


02 


01 


00 


ILC 


PED 


WLK 


BOT 


EOT 
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$,3 


S.2 


WHEN THE VOLUME a te BIT IS SET. 
- ANY COMMAND, EXCEPT GET STATUS OR DRIVE 
ee tee * WHEN yl OFF-LINE. 


Y WRITE COMMAND TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS = WLS). 

ILLEGAL COMMAND. SET WHEN ? COMMAND IS ISSUED 
a See ITS_ COMMAND FIELD OR ITS COMMAND 

MODE FIELD CONTAINS CODES WHICH ARE NOT 

SUPPORTED BY THE TSO5. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED.) 


TAPE IS MOVING. 


ON LINE. WHEN SET, INDICATES THAT THE TSOS IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
COMMAND. 

VOLUME CHECK. wes SET, INDICATES THAT THE 


E VOLUME CHECK 
(CVC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 


PHASE ENCODED DRIVE. ws, SET, INDICATES THAT 


Hy TSOS IS CAPABLE OF READING AND WRITING ONLY 
1600 6PI PHASE ENCODED DATA. 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE~ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 


eer | OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS_ POSITIONED AT THE LOAD POINT AS 
DENOTED BY THE BOT REFLECTIVE STRIP ON THE 


END OF TAPE. THIS BIT IS SET WHENEVER THE TAPE 
IS_ POSITIONED AT OR BEYOND THE END OF TAPE 
REFLECTIVE STRIP. 


SEQ 0035 


eS 


kK 
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1703 
1704 


—d d ed od 
NNN NSS SSS 
NONINININIR) ooo 


NM 


N Nw 
OONOUS Ww 


WWW 
wh 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BIRR 





SEQ 0036 
6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 
15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
tomnt tooeteneteaet toontecotoewns soontoewotpoen} fometpewetecns fonnpocnponns 
‘DLT! ! O !cor!0!!0!0!0! !repP!oO!0!!0:!0:!:0:! !0 !unc: 0! 
: sf $ : ;§ § ! 3 : 8 :f § s g 8 § g 5 
townt teomtematennt toon tenntonnt fomntewatean} somepowntpocns Foon ponnsonns 
BIT NAME TCC DEFINITION 
15 DLT 4 DATA LATE. SET WHEN THE FIFO IS FULL ON A 
READ OR EMPTY ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE Q-BUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TSOS. 
14 - - NOT USED. (ALWAYS A 0) 
13. ~COR S CORRECTABLE DATA. 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 
12-09 RESERVED (ALWAYS A 0) 
08 RPB 4 READ BUS PARITY ERROR. SET WHEN CONTROLLER DETECTS 
A PARITY ERROR ON THE READ DATA LINES OF THE TRANSPORT BUS. 
07-02 & 00 RESERVED (ALWAYS A 0) 
01 UNC 4 UNCORRECTABLE DATA ERROR. 





SEQ 0037 
6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 


15 14 13 12 11. 10 09 08 07 06 05 04 03 O02 O01 00 


toent yewetowetoenet toontecntennt femme tecnteent} Hoeontecntecet feo tennponns 
OPM! 'RCE! 0! 0! ! 0 'WCF! 0! ! O !RL7!RL6! 'RLSIRLGIRL3! 'RLZ!RL1!RLO! 
: : 3 : : ;§ § § $3 § § :% § § § 8 g g g 


BIT NAME TCC DEFINITION 


15 OPM Ss OPERATION IN PROGRESS. (TAPE MOVING) 


14 RCE 7,F2 RAM CHECKSUM ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
neseage fecneT OCCURRED DURING THE TRANSMISSION OF THE 


13-11 RESERVED (ALWAYS A 0) 

10 =—WCF 7 WRITE CLOCK FAILURE. SET DURING A WRITE TO INDICATE THAT 
THE FIFO IS NOT BEING EMPTIED BY THE TRANSPORT. 

09-08 RESERVED (ALWAYS A 0) 


07-00 RLY - REVISION LEVEL. 












Fest tatotat ot totetat oe eRe eR ee tt 


ee etd td = od = = 2d 2 od 
© Co CO Cd Co Co CO Co 


883 


—— 
Go 00 
hor 
Wn 


0.09 09 00 00 
MoMPofofony 
CONGUE 
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6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 


15 14 13 12 +11 10 09 #08 07 06 05 04 03 


teen} toeeaefsoeetoee} foeetfoecetose} foensoce Geen} feeetfoeot}oece} foeetfoeetfoecas 


; MICRO DIAGNOSTIC ERROR CODE 


SEQ 0038 


02 01 00 


' 0 :OPI! ;REV: TRE IDCK: ‘ 0 ‘ 0 :RIB: 


duaetd geoeetfoeoetfoce} foeefoeefoen} Wet 2a A ee or Quas@uendunns 


BIT NAME TCC DEFINITION 
15 TO 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
07 RESERVED (ALWAYS A 0) 
06 OPI 6 OPERATION fe a de SET WHEN A READ, SPACE, 
OR SKIP OPERATION WAS MOVED 25 hee OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE. 
05 REV S DIRECTION OF CURRENT — WAS REVERSE (BUT 
IS 0 IF REWIND OR FORWARD) 
04 - - RESERVED (ALWAYS A 0) 
03 DCK $.6 DENSITY CHECK. SET WHEN A PE 
IDENTIFICATION BURST (IDB) WAS NOT DETECTED WHEN 
MOVING OFF OF BOT. 
02-01 RESERVED (ALWAYS A 0) 
00 RIB 2 REVERSE INTO BOT. A READ, SPACE, SKIP 
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE ~~ 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE . 
DIRECTION, TAPE MOTION WILL BE HALTED AT BOT. 
6.3.7 EXTENDED STATUS REGISTER 4 (XSTAT4) 
15 14 13 12 11 10 09 08 07 06 05 04 035 02 01 ,00 
teent temeteonteant teesteeeteeet temeteeetennt tuanteentenns tonntoeentone + 
;HSP: :RCE: 0 0 0 0 0 0 : WRITE RETRY COUNT 
Guees a ae Sa Peewtaeaatonet tuantucataces feentecetace$ socatecesaces 
BIT NAME Tec DEFINITION 










SoNR ARE eS ete oR EeceS 


ee ee ee ed ceed ced ee ed eed ee ed 


0 00 Co Co CO CO 
MUNA 
fwnr-o 





15 HSP Ss 
14 =RCE 6 
13-8 ° 
7-0 wRC s 
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HIGH SPEED. WHEN SET, INDICATES THAT THE TRANSPORT IS 
OPERATING IN HiGH SPEED MODE.(100IPS) WHEN CLEAR, THE 
TRANSPORT IS OPERATING IN LOW SPEED MODE.(25IPS) 


RETRY COUNT EXCEEDED. WHEN SET, INDICATES THAT THE CONTROLLER 
WAS BUFFERING WRITE DATA AND COULD NOT SUCESSFULLY OUTPUT 
THE BUFFERED RECORD WITHIN THE SPECIFIED NUMBER OF RETRIES. 
CAUSES TAPE POSITION LOST TERMINATION. 


RESERVED (ALWAYS A 0) 


WRITE RECOUNT COUNT STATISTIC. THIS FIELD INDICATES, WHEN 
cumash ar then IS BUFFERING WRITE DATA RECOR THE TOTAL 


TO WRITE THE PREVIOUS BUFFERED RECORD. THIS COUNT IS CLEARED 
AFTER IT IS DISPLAYED. 


REVISION A = MAR 1982 
~ MODIFIED CZTSHC FROM TS11 FOR TSVOS 




























42 
4G 
) 002000 
47 002000 
48 
49 
50 
51 
52 
53 
54 002000 
55 
63 
64 002000 
002000 
002000 103 
002001 126 
002002 124 
002003 123 
002004 105 
002005 000 
2006 000 
002007 000 
002010 
002010 101 
002011 
002011 060 
002012 
002012 000000 
002014 
002014 005000 
002016 
002016 027732 
002020 
002020 030040 
002022 
002022 002174 
002024 
002024 002204 
002026 
002026 032004 
002030 
002030 000000 
002032 
002032 000000 
002034 
002034 000001 
002036 
002036 000000 
002040 
002040 002124 
002042 
2042 000000 
002044 
000000 


PROGRAM HEADER AND TABLES 


B 4 
MACRO M1113 25=MAY=82 09:51 PAGE 16 


~ TITLE PROGRAM HEADER AND TABLES 
-SB8TTL PROGRAM HEADER 


eENABL ABS,AMA 
= 2006 


p++ 
3 THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSFT ,BGNAU,BGNDU 


: HEADER CVTSE.A,0,5000,1 


LSNAM :DIAGNOSTIC NAME 


LSREV:: sREVISION LEVEL 

LSDEPO:: 70 

LSUNIT:: NUMBER OF UNITS 

LSTIML:: LONGEST TEST TIME 
LSHPCP:: sPOINTER TO H.W. QUES. 
LSSPCP:: :POINTER TO S.W. QUES. 
LSHPTP: : PTR. TO DEF. H.W. PTABLE 
LSSPTP:: :PTR. TO S.W. PTABLE 
LSLADP: : DIAG. END ADDRESS 
LSSTA:: RESERVED FOR APT STATS 
L$CO:: 

LSDTYP:: DIAGNOSTIC TYPE 

LSAPT:: ;APT EXPANSION 

LSDTP:: :PTR. TO DISPATCH TABLE 
LSPRiO:: DIAGNOSTIC RUN PRIORITY 
LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 


SEQ 0040 


«ASCII /C/ 
eASCII /V/ 
eASCII /T/ 
«ASCII /S/ 
«ASCII /E/ 
-BYTE QO 
-BYTE 0 
eASCII /A/ 
eASCII /0/ 
-WORD 0 
«WORD 5000 
«WORD LSHARD 
«WORD LSSOFT 
«WORD LSHW 
«WORD LS$SwW 
«WORD LS$LAST 
-WORD 0 
-WORD 0 
«WORD 1 
-WORD 0 
«WORD LSDISPATCH 
-WORD 0 
«WORD 0 























PROGRAM HEADER 


002046 000000 


00 

oosoe} 002164 
002062 017546 
00064 000000 
002066 000000 
002070 024030 
002072 023756 
002074 000000 
000076 002136 
009100 104035 
SANS 000000 
002104 021302 
023714 
023272 
021274 
000000 
000000 
000000 


Nesrrewees 
AAS KMNCO 


S 
Nm 
Nm 
=) 


PROGRAM HEADER AND TABLES 


MACRO M1113 25-MAY-82 09:51 


LSEXP1:: 
LSMREV:: 


LSEF:: 


LSSPC:: 
LSDEVP: : 
LSREPP: : 
LSEXP4:: 
LSEXPS:: 
LSAUT:: 
LSDUT:: 
LSLUN: : 
LSDESP:: 
LSLOAD:: 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME: : 


C 4 
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sEXPANSION WORD 
:SVC REV AND EDIT # 


sDIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
:PTR. TO REPORT CODE 


sPTR. TO ADD UNIT CODE 

:PTR. TO DROP UNIT CODE 

sLUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 
POINTER TO ERRTBL 

:PTR. TO INIT CODE 

3PTR. TO CLEAN-UP CODE 

:PTR. TO AUTO CODE 

:PTR. TO PROTECT TABLE 

: TEST NUMBER 

DELAY COUNT 

:PTR. TO HIGH MEM 


SEQ 0041 


0 
esse 
0 
LSDVTYP 
LSRPT 

0 

0 

LSAU 
L$DU 

0 
LSDESC 
ESLOAD 
0 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 

0 

0 






1 
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DISPATCH TABLE SEQ 0042 
72 ~SBTTL DISPATCH TABLE 
fi 
p++ 
75 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
6 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
78 : 
79 002122 DISPATCH 5 
002122 000005 «WORD § 
002124 LSDISPATCH:: 
002124 024134 «WORD T1 
002126 025622 -WORD fT2 
30 026456 -WORD 13 
002132 026652 -WORD 14 
80 2134 027032 eWORD T5 
87 
4 -SBTTL DESCRIPTIVE TEXT 
90 p++ 
3 32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER TES 
93 : 
94 002136 DESCRIPT <DATA RELIABILITY TEST> 
002136 LSDESC:: 
002136 104 101 124 -ASCIZ /DATA RELIABILITY TE 
002141 101 040 122 
002144 105 114 111 
002147 101 102 111 
002152 114 111 124 
2155 131 040 124 
002160 105 123 124 
002163 000 
EVEN 
95 002164 DEVTYP <TSV05> 
002164 LSDVTYP:: 
002164 124 123 126 eASCIZ /TSVOS/ 
002167 060 065 000 owe 


-——— 


| PROGRAM HEADER AND TABLES 


DEFAULT HARDWARE P-TABLE 


97 
98 


lie ee el 
ARALLS3 


002172 
7 


002172 000003 


106 

107 

108 002174 172520 
109 002176 000224 
0 002200 000000 
112 


002202 
002202 
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-SBTTL DEFAULT HARDWARE P-TABLE 


p++ 
3 THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 


: THE TEST=DEVICE PARAMETERS. THE STRUCTURE 


OF THIS TABLE 


; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P=TABLE. 


BGNHW DFPTBL 


LSHW:: 

DFPTBL:: 

-WORD 172520 ;TSDB ADDRESS. 

eWORD 224 ;VECTOR ADDRESS. 

-WORD 0 sDRIVE #0 FOR DEFAULT 
ENDHW 


L10000: 


- WORD 


SEQ 0043 


L10000-L$Hw/2 
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SOFTWARE P-TABLE SEQ 0044 
1s -SBTTL SOFTWARE P-TABLE 
116 s¢ 
117 s THE SOFTWARE P-TABLE CONTAINS THE VALUES OF Lng PROGRAM 
138 : PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR 
120 
121 002202 BGNSW SFPTBL 
002202 000051 -WORD £L10001-L$Sw/2 
002204 L$SW:: 
122 002204 SFPTBL:: 
129 002204 001 CLRFLG:: .BYTE 1 : CLEAR COUNTERS FLAG. 
130 002205 000 RRANV:: .BYTE 0O sRESET RANDOM VARIABLES or PASS FLAG. 
131 002206 000 HAE:: BYTE 0 *HALT AFTER EACH COMMAND FLAG. 
132 002207 000 ERCVER:: .BYTE O s ENABLE RECOVERABLE ERROR PRINTS F LAG. 
133 002210 001 : BADTSW:: .BYTE 1 BAD TAPE SWITCH TO REWRITE ON SAME SPOT & DETECT BAD TAPE 
134 002211 000 -BYTE O E 
135 002212 000 DINT:: .BYTE 0 DISABLE INTERRUPTS FLAG. 
136 002213 000 IREC:: .BYTE 0 S INHIBIT ERROR RECOVERY FLAG. 
137 002214 000 CHGFLG:: .BYTE 0 ; CHANGE CMD SEQ TABLE FLAG. 
138 002215 000 -BYTE O SPARE. 
139 002216 000 PIRE:: .BYTE 0 ; INHIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 
140 002217 000 -BYTE O SPARE. 
141 002220 000040 CHAR:: CH.EAI S CHARACTERISTICS CODE (DEFAULT = 40). 
142 002222 000015 CMDD:: .WORD 13. : COMMAND D 2 (DEFAULT = REWIND). 
143 002224 000001 ~ WORD 1 sBYTE COUNT 
144 002226 000001 ~ WORD 1 SNUMBER OF OPERATIONS 
145 002230 000007 - WORD RANP ZPATTERN 
146 002232 000004 ~WORD 4 COMMAND 3 he pg = a Ee 
147 002234 004000 -WORD DATCNT “BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
148 002236 076400 eWORD 32000. [NUMBER OF OPERATIONS (EFACLT © 32000). 
149 002240 000007 -WORD RANP SPATTERN (DEFAULT = RANDOM). 
150 002242 000003 eWORD 3 sCOMMAND 4 (DEFAULT = _READ REV). 
151 002244 004000 eWORD DATCNT :BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
152 002246 076400 -WORD 32000. [NUMBER OF OPERATIONS (DEFAULT = 32,000). 
153 002250 000007 -WORD RANP sPATTERN (DEFAULT = RANDOM) . 
154 002252 000002 -WORD 2 ;COMMAND 5 (DEFAULT —— FWD). 
155 002254 004000 -WORD DATCNT [BYTE COUNT (DEFAULT = X BUFFE RSS 
156 002256 076400 -WORD 32000. ZNUMBER OF OPERATIONS (DEFALLT 32,000 
157 002260 000007 eWORD RANP sPATTERN iw ty = RANDOM) . 
158 002262 000015 ~ WORD 13. + COMMAND 6 (DEFAULT = REWIND). 
159 64 000001 -WORD 1 sBYTE COUNT 
160 66 000001 » WORD 1 SNUMBER OF OPERATIONS 
161 002270 000007 eWORD RANP sPATTERN 
4 002272 000033 -WORD 27. TEND OF CMD SEQ TABLE CODE (DEF) OR CMD 7 
163 002274 004000 -WORD DATCNT ‘BYT E COUNT (DEFAULT = MAX BUFFER size). 
164 002276 076400 -WORD 32000. NUMBER OF OPERATIONS (DEFAULT = 32000 
165 002 000007 eWORD RANP sPATTERN (DEFAULT = RANDOM). 
166 002302 000033 eWORD 27. [END OF CMD SEQ TABLE _CODE (DEF) OR CMD 8 
167 002304 004000 eWORD DATCNT [BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
168 002306 076400 eWORD 32000. [NUMBER OF OPERATIONS | (DEFAULT = 32000). 
169 002310 000007 WORD RANP SPATTERN (DEFAULT ANDOM) . 
170 002312 000001 TS1MD - WORD 1 *DEFAULT SWITCH SETTING 
171 002314 000000 RDBUF:: .WORD 0 sENABLE READ BUFFERING 
172 002316 000000 WIBUF:: .WORD 0 TENABLE WRITE BUFFERING 
173 002320 000000 HSSW:: .WORD 0 ‘RUN AT 100IPS SWITCH 








G 4 
PROGRAM HEADER AND TABLES MACRO M1113 25-MAY=82 09:51 PAGE 19-1 ( 


SOFTWARE P=TABLE SEQ 0045 ( 
174 002322 060000 EXTFEA::.WORD 0 ZEXTENDED FEATURES SOFTWARE Sw O=OFF;1=0N 
175 002324 000000 BENBSW::.WORD 0 [BUFFER ENABLE SOFTWARE Su Onur? 40008 7 | 
177 002326 ENDSW | 
waa 002326 L10001: | 
179 002326 ENDMOD 
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2 
211 002326 


000340 
000300 
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«TITLE GLOBAL 


AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


s+¢ 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
: ARE USED IN MORE THAN ONE TEST. 


EQUALS 
: BIT DIFINITIONS 
B81T15== 100000 
B1T14== 40000 
B1T13== 20000 
BIT12== 10000 
B1T11== 4000 
B1T10== 2000 
BITO9== 1000 
B1T08== 400 
B1T07== 200 
BIT06== 100 
B1T05== 40 
BIT04== 20 
B1TO3== 10 
BITO2== 4 
BITO1== 2 
B1T00== 1 
BIT9== BITO9 
BIT8== BITO8 
BIT7== B1T07 
BIT6== BIT06 
BITS== BITOS 
BIT4== BIT04 
BIT3== BITO03 
BIT2== BITO2 
BITi== BI1T01 
B1TO0== B1T00 
3; EV FLAG DEFINITIONS 
EF .START== 32. 
EF .RESTART== 31. 
EF .CONTINUE== 30. 
EF. NEW W== 29. 
EF .PWR== 28. 
; PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 
PRI06== 300 


ENT 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


; START COMMAND WAS ISSUED 
: RESTART COMMAND WAS ISSUED 
; CONTINUE COMMAND W 


WAS ISS 
: A NEW PASS HAS BEEN STARTED 
; A POWER-FAIL/POWER-UP OCCURRED 


SEQ 0046 





a a SS 


I 4 
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| GLOBAL EQUATES SECTION SEQ 0047 
, 000240 PRIOS== 240 
000200 PRIOG== 200 
000140 PRIO3== 140 
PRIO2Z== 100 
000040 PRIOI== 40 
PRIOO== 0 
ZOPERATOR FLAG BITS 
EVL== 
000010 LOT== 10 
20 ADR== 20 
0 IDU== 
000100 ISR== 100 
000200 == 200 
000400 BOE == 400 
001000 PNT== —-1000 
2000 PRI== 2000 
000 IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


REGISTER USAGE. 


7 = PASSES PARAMETERS TO/FROM A > aaa SUPERVISOR. 
= COMMAND SEQUENCE TABLE POINTER. 

R2 = GENERAL PURPOSE REGISTER. 

R3 = GENERAL PURPOSE REGISTER. 

R4 = GENERAL PURPOSE REGISTER. 
R5 = CURRENT LOGICAL DEVICE NUMBER X 2. 
R6 = STACK POINTER. 
R7 = PROGRAM COUNTER. 


sTHE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 


TS.SC==100000 2SPECIAL CONDITION BIT. 
TS.UPE==40000 sUNIBUS PARITY ay 
TS. SPE==20000 SERIAL BUS PARITY ERROR. 
TS.RMR==10000 REGISTER MODIFICATION REFUSED. 
TS .NXM==4000 NON-EXISTENT MEMORY. 

==20 NEED BUFFER ADDRESS. 
TS.A17==1000 3BUS ADDRESS BIT ‘a 
TS.A16==400 2BUS gop ty iM 
TS.SSR==200 3UNIT READY BIT. 
TS.OFL==100 FFL 
TSC.FCC==177717 FATAL CLASS CODE MASK. 
TSC. 1CC==177761 TERMINATION CLASS CODE MASK. 
sTHE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 
ACK.C==100000 sACKNOWLEDGE BIT 
CvC.C==40000 CLEAR VOLUME CHECK. 
OPP. C==20000 OPPOSITE BIT 
SWB. C==10000 sSWAP BYTE BIT 








‘Saleesheeeeener incon moe ee nema er am 
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| GLOBAL EQUATES SECTION SEQ 0048 
253 064000 40D. C3==4000 sMODE BIT 3 

554 004000 F-C==4000 :BYTE/RECORD/F ILE COUNT FLAG BIT. NOT USED 
| $55 BY TSOS BUT USED INTERNALLY BY THIS PROGRAM ONLY. 

556 002000 MOD. C2==2000 {MODE BIT 2 
| 557 001000 MOD .C1==1000 MODE BIT 1 

558 000400 *€0==400 MODE BIT 0 

559 000200 1E.c==200 INTERRUPT ENABLE 
| $60 000100 FMT.C1=2=100 TFORMAT BIT 1 

561 000100 VFY.C==100 TWRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 

36 :NOT USED BY TS0S. 

56 000040 FMT .CO==40 FORMAT BIT 0. 

264 000040 MP.C==40 + JUMP BIT-TO DIRECT rat PROGRAM TO JUMP TO 

565 ZA CERTAIN LOCATION IN THE COMMAND SEQUENCE 

566 STABLE. INTERNAL USE ONLY. 

567 000020 CMD. C4==20 

268 000020 DLY.C==20 : INSERT DELAY. INTERNAL USE ONLY. 

569 000010 CMD. C3==10 COMMAND BIT 3 

570 000004 CMD. Co=s4 COMMAND BIT 2 

571 000002 CMD. Ci==2 COMMAND BIT 1 

272 000001 CMD. CO== COMMAND BIT 0 

ie: BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 

576 000200 CH.ESS==200 ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT). 

577 000040 CH.EAI==40 ENABLE ATTENTION INTERRUPTS. 

578 000020 CH. ERI==20 TENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

279 000040 DFTSCH==CH.EAI DEFAULT CHARACTERISTICS CODE. 

281 ;B1T DEFINITIONS FOR EXTENDED CONTROL WORD 

583 000040 EF .HSS==40 ZENABLE HIGH SPEED SELECT 

584 000030 EF -RUB==30 ENABLE BOTH READ & WRITE BUFFERING 

28s 000020 EF .RBO==20 ENABLE READ BUFFERING ONLY 

587 THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 

288 IN THE MESSAGE BUFFER. 

590 000004 MS.RFC==6 RESIDUAL FRAME COUNT. 

591 000006 MS.XSO==6 TEXT STATUS REG 0 

592 000010 MS.XS1==10 TEXT STATUS REG 1 

593 000012 *x$2==12 TEXT STATUS REG 2 

594 000014 *xs$==14 TEXT STATUS REG 3 

298 000016 "xS4==16 TEXT STATUS REG 4 

297 ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 

599 100000 x0. THK==100000 TAPE MARK. 

300 040000 x0. RLS==40000 :RECORD LENGTH SHORT. 

301 020000 x0. LET==20000 LOGICAL EOT. 

302 010000 x0. RLL==10000 TRECORD LENGTH LONG. 

303 000100 XO. ONL ==100 ON 

000004 x0. WLK== TWRITE LOCK BIT 

305 000002 x0. BOT== :B0T BIT. 

306 000001 x0. E0T==1 ZEOT BIT. 

308 ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 





ee 
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GLOBAL EQUATES SECTION SEQ 0049 x 

310 160000 x2. OPM==100000 OPERATION IN PROGRESS, TAPE MOVING 

11 000200 x2. EFE==200 EXTENDED FEATURES ENABLED 

312 000100 x2. BFE==100 BUFFERING ENABLED 

314 ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 

316 000010 x3. DCK==10 :DENSITY CHECK. 

317 157400 X3_RNY==157600 SCAPSTAN RUNAWAY UDIAG ERROR CODE. 

319 THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4. 

351 100000 x4.HSS==100000 HIGH SPEED SWITCH INDICATING 100IPS 

322 040000 X4.RCE== 40000 RETRY COUNT EXCEEDED 

354 

355 THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 

358 “PACKET ENTRIES. 

358 000000 cP. CMD==0 CMDPKT+0==TS0S COMMAND. 

399 000002 CP_ADL== CMDPKT+2==BUFFER ADDRESS LOW. 

330 000004 CP. ADH== CMDPKT+4==BUFFER ADDRESS HIGH. 

331 000006 CP. CNT== :CKDPKT+6==BYTE/FILE/RECORD COUNT 

333 MISCELLANEOUS DEFINITIONS. 

335 000340 INTPRI==PR107 ;PRIORITY TO BE USED IN INTERRUPT STATE. 

336 000012 SCHCNT==12 GARBITRARY BYTE LENGTH FOR CHARACTERISTIC 

337 :BUFFER LENGTH. (EVEN 

338 000020 MSGCNT==20 AESSAGE BUFFER LENGTH IN BYTES. (EVEN #) 

339 000020 DIACNT==20 :DIAGNOST IC COMMAND BUFFER EXTENT. 

340 004000 DATCNT==2048. MAXIMUM RECORD LENGTH IN BYTES. 

341 :THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSURE 

342 ‘PROPER READ/WRITE BUFFER ALLOCATION BY THE SUPER. 

343 177740 RNOPSC==177740 RANDOM # OF OPERATIONS MASK. 

344 000007 RANP== CODE TO SEL ATTERN. 

345 000020 RRECL==16. “READ RECOVERY ATTEMPT LIMIT. 

346 000020 WRECL==16, TWRITE RECOVERY ATTEMPT LIMIT. 

347 153694 RANBC==153624 SCONSTANT USED TO RESET RANDOM # GENERATOR BASE. 

348 032561 RANSC==32561 : CONSTANT USED TO_RESET RANDOM # SAVE LOCATION. 

349 177776 NINUSE==177774 “NOT IN USE CODE FOR DEVICE STATE TABLE. 

350 177740 NCMD.C==ACK.C!CVC.C!OPP.C! SWB. c+ -C3! P00 C2!MOD.C1!MOD.CO!IE.C!FMT.C1iFMT.CO 

325 ‘COMMAND’ BITS. 

333 ;THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSOS COMMAND. 

355 100013 DRI== ACK.C!CMD.C3!CMD.C1!CMD.CO 

356 DRIVE INIT. 

358 104001 RDF== ACK.C!BRF.C!CMD.CO 

359 j READ FORWARD 

361 104401 RDR== ACK.C!BRF.C!MOD.CO!CMD.CO 

362 READ REVERSE 

364 104005 WRT== ACK. C!BRF.C!CMD.CO!CMD.C2 

365 SWRITE COMMAND 
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GLOBAL EQUATES SECTION SEQ 0050 x 

367 164105 WTV== ACK.C!BRF.C!VFY.C!CMD.CO!CMD.C2 

368 WRITE VERIFY | 

370 104010 SRF== ACK.C!BRF.C!CMD.C3 

371 SPACE RECORD FORWARD 

373 104410 SRR== ACK.C!BRF.C!MOD.CO!CMD.C3 

$e SPACE RECORD REVERSE 

376 105407 RNR== ACK.C!BRF.C!MOD.C1!MOD.CO!CMD.CO 

377 READ REV RETRY] - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 

379 125401 RNF== ACK.C!BRF.C!OPP.C!MOD.C1!MOD.CO!CMD.CO 

300 sREAD REV RETRY2 = REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 

382 105001 RPF==  ACK.C!BRF.C!MOD.C1!CMD.CO 

383 ;READ FWD RETRY] = REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORWARD 

385 125001 RPR== ACK.C!BRF.C!OPP.C!MOD.C1!CMD.CO 

386 READ FWD RETRY2 = REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORWARD 

338 105005 WRR== ACK.C!MOD.C1!8RF.C!CMD. C2.CMD co 

389 WRITE RETRY 

391 102010 RWD== ACK.C!MOD.C2!CMD.C3 

392 ;REWIND COMMAND 

394, 100012 MBR== ACK.C!CMD.C3!CMD.C1 

398 ;MESSAGE BUFFER RELEASE 

397 100011 WIM== ACK.C!CMD.C3!CMD.CO 

598 WRITE TAPE MARK. 

400 101011 WIR== ACK.C!MOD.C1!CMD.C3!CMD.CO 

401 [WRITE TAPE MARK RETRY. 

403 105010 SFF== ACK.C!BRF.C!MOD.C1!CMD.C3 

rrr sSPACE FILE FORWARD 

406 105410 SFR== ACK.C!BRF.C!MOD.CO!MOD.C1!CMD.C3 

407 :SPACE FILE REVERSE 

409 100017 GES==  ACK.C!CMD.CO!CMD.C1!CMD.C2!CMD.C3 

410 3GET EXTENDED STATUS 

412 100611 ERS== ACK.C!MOD.CO!CMD.C3!CMD.CO 

tle ERASE 3 INCHES OF TAPE 

415 100412 UNL== ACK.C!MOD.CO!CMD.C3!CMD.C1 

419 ;UNLOAD COMMAND 

418 101012 CLN== ACK.C!MOD.C1!CMD.C3!CMD.C1 

419 ERASE TAPE. 

421 140004 SCH== ACK.C!CVC.C!CMD.C2 SET DEVICE CHARACTERISTICS. 

423 140006 WSM==  ACK.C!CVC.C!CMD.C2!CMD.C1 WRITE SUB-SYS MEM 
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4 

444 002330 
445 002332 
446 002334 
reid 002336 


2 
rh 002340 


460 002344 


468 00235 
; 000382 
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GLOBAL 
GLOBAL EQUATES SECTION 


100006 
000040 
000020 
177777 


002340 
100017 


002344 
100012 


002350 
102010 
000001 





DIA== 
JMP== 
DLY== 
END== 
° SOTTL 
: IN 


CMDPKT: : 


PAGE 20-5 oe 
SEQ 0051 
ACK.C!CMD.C2!CMD.C1 :DIAGNOSTICS. 
JMP.C : JUMP TO "'N’'TH COMMAND 
DLY.C sDELAY “N’* MS. 
177777 sEND OF COMMAND SEQUENCES 


GLOBAL DATA SECTION 


2 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
MORE THAN ONE TEST 


COMMAND PACKET. 


= <.+3>8177774 sMUST BE ON MOD 4 BOUNDRY. 
0 21ST WORD IS TSOS COMMAND. 

;2ND WORD IS THE BUFFER LOW ADDRESS. 
73RD WORD IS THE BUFFER HIGH ADDRESS. 
34TH WORD IS THE BYTE/RECORD/FILE COUNT. 


ooo 


GET STATUS COMMAND PACKET. 


= <.+3>8177774 MUST BE ON MOD 4 BOUNDRY. 
GSCPK:: .WORD GES 
: MESSAGE BUFFER RELEASE COMMAND PACKET. 
° = <.+3>8177774 sMUST BE ON MOD 4 BOUNDRY. 
BRCPK:: .WORD MBR 
: REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 
. = <.+3>8177774 sMUST BE ON MOD 4 BOUNDRY. 
RWCPK:: .WORD RWD 

° WORD 1 = 
; WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 
MSGPKT:: .BLKW 8, 31ST WORD:: MESSAGE TYPE. 


22ND WORD:: DATA FIELD LENGTH. 
23RD WORD: : erate FRAME COUNT. 


376TH 23 
37TH WORD:: XSTAT 





AREAS 


GLOBAL 
GLOBAL DATA SECTION 


484 002374 
485 002414 
486 002434 
487 002454 
488 
489 
490 
491 002474 


504 


oo 
So 
Nm 
wey 
ex 


SODNARRWNAOSRURARD 


MAAMAMAYVIMMAM AAU UII 3 


wv 
Mormonon 
WN 
ses 

oO 
Morr 
Mw 

w 

Oo 


60 
524 002562 


MACRO M1113 25-MAY-82 09:51 PAGE 20-6 


000000 
000000 
000000 


002514 


010056 


000000 
000000 
000000 
000000 


000000 
000000 
000000 


MSGPK3: : 


SCHBK: : 


N 4 
SEQ 0052 
:8TH WORD:: XSTAT4 
MESSAGE PACKETS. 
:: .BLKW 8. MESSAGE PACKET FOR DEVICE #0 
:: .BLKW 8. MESSAGE PACKET FOR DEVICE #1 
:: .BLKW 8. sMESSAGE PACKET FOR DEVICE a 
-BLKW 8. MESSAGE PACKET FOR DEVICE # 
SET CHARACTERISTIC BLOCK. 
MSGPKO 31ST WORD:: cteeet pote LO(SET UP BY EXCUTE ROUTINE). 
0 32ND oo A ee MSGPKT ADDR HI. 
MSGCNT :3RD WO : MSG BUFFER LENGTH (BYTES) 
CH.EAI H WORD: : CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 
0 STH WORD:: HSP & BUFFER CONTROL ON EXT‘'D FEATURES 


WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 


WSMBK:: 0 31ST WORD:: SEL 0 
0 S2ND WORD:: SEL 2 
0 73RD WORD:: SEL 4 
: TSOS REGISTER ADDRESSES. 
TSDB:: .BLKW 4 zTSOS DATA BUFFER ADDRESSES. 
TSSR:: .BLKW 34 :TS05 STATUS REGISTER ADDRESSES. 
TSVCT:: .BLKW 4 :TS05 VECTOR ADDRE 
TSBA==TSDB ZDATA BUFFER ADDRESS REGISTER. 
3 ADDRESSES OF MESSAGE PACKETS. 
MSGPKA:: MSGPKO sDEVICE 0. 
MSGPK1 :DEVICE 1. 
MSGPK2 sDEVICE 2. 
MSGPK3 :DEVICE 3. 
: ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
TSSINT:: TSSINO sDEVICE 0. 
TSSIN1 sDEVICE 1. 
TSSIN2 sDEVICE 2. 
TSSINS 2DEVICE 3. 
: TSOS CODE LEVELS. WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
TSSCL:: 0 :DEVICE 0 
0 ‘DEV ICE 1 
0 ICE 2 
0 DEVICE 3 
: TSOS EXT. FEA & BUF. ENA SW°S, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
TSSSW:: 0 sDEVICE 0 
0 sDEVICE 1 


0 DEVICE 2 


a 





GLOBAL AREAS 
GLOBAL DATA SECTION 


oe8 002602 


561 B0s6e6 
563 002726 
766 


94 003416 
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060000 


003244 


002626 


003376 


000550 


000000 


B 5 
SEQ 0053 

0 DEVICE 3 
: UNIT NUMBERS OF ALL DEVICES A ty TESTED(1=4). 
: WHEN DEVICE IS NOT IN USE LOCATION WILL = =3. 
; RS WILL ALWAYS CONTAIN THE bReSENT LOGICAL UNIT NUMBER X 2. 
DEVTBL:: .WORD NINUSE 

-WORD NINUSE 

-WORD WNINUSE 

eWORD WNINUSE 

-WORD END 
; BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
: “WRTY*’’ TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 
BTADDR:: BTO 

BT1 

BT2 

BT3 
3 COUNT :R AREA. 
CNTBGN=. 
WRBC:: .BLKW 20 sBYTES WRITTEN. 
RRBC:: .BLKW 20 ‘BYTES READ REV. 
RFBC:: .BLKW 20 sBYTES READ F 
WRREC:: .BLKW 4 SRECOVERABLE WRITE ERRORS. 
WRUNR:: .BLKW 4 SUNRECOVERABLE WRITE ERRORS. 
RRREC:: .BLKW 4 3 OVERABLE READ REV ERRORS. 
RRUNR:: .BLKW 4 SUNRECOVERABLE READ REV ERRORS. 
RFREC:: .BLKW 4 ZRECOVERABLE READ FWDERRORS. 
RFUNR:: .BLK 4 SUNRECOVERABLE READ FWD ERRORS. 
BT0:: -BLKW 21. : TAPE S$ 
BTi:: .BLKW 21. sUNIT 1 BAT TAPE SPOTS LOG 
BT2:: .BikW 21. sUNIT 2 BAT TAPE SPOTS LO 
BT3:: -BLKW 21. sUNIT 3 BAT TAPE SPOTS LOG 
WRTYCT:: .BLKW 4 :WRITE RETRY COUNTER 
PASCNT:: .BLKW 4 sPASS COUNT. 
SCCNT:: .BLKW 4 SSPECIAL CONDITION COUNT. 
VFYCNT:: .BLKW 4 sCOUNT OF TSOS DATA COMPARE ERRORS. 
HRDCNT:: .BLKW 4 [COUNT OF HARD ERRORS. 
FTILCNT:: .BLKW 4 :COUNT OF FATAL ERRORS. 
CNTEND=. SEND OF BeAr IC TIAL COUNTERS. 
RECCNT:: .BLKW 4 NUMBER F RECORDS FROM BOT: CLEARED ON REWIND 

: AND CHEN RESTARTING OR CONTINUING TEST 2. 

CNTLEN==CNTEND=CNTBGN SLENGTH OF STATISTICAL COUNTER AREA, 
: THE FOLLOWING ARE ine DEFINITIONS OF VARIABLES 
3 USED BY THE PROGRAM 


DATAWT:: .WORD 
DIABLK==DATAWT 


WRITE BUFFER ADDRESS. 

WRITE BUFFER ALSO USED FOR DIAG CMD. 
READ BUFFER ADDRESS. 

i STORAGE FOR VALUE OF 

:TEMP STORAGE FOR VALUE “OF N. 
STORAGE FOR BPCR VALUE. 


2 
o 
2 
— 
. 

< 
So 
zDD 
— 

oooo 


BRE CNT: : - WORD 


an ol 


GLOBAL AREAS 
GLOBAL DATA SECTION 


a3? oORtSe 
596 003422 
597 003424 


0 
651 003526 
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177777 


00 
000000 


003460 
000000 


003526 


000 


¢ 5 


; 
SEQ 0054 ; 
CMDWRD:: .WORD END ; CONTAINS ores WORD red ay EXECUTED PRESENTLY. 
CMDSAV:: .WORD END sSAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
PCMDWD:: .WORD END CONTAINS PREVOUS C RUOR ° 
CMDLG:: .WORD 0 sCURRENT COMMAND LOGGING CODE. 
LENMSK:: .WORD 0 sRANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 
RANB:: .WORD 153624 ; RANDOM # GENERATOR BASE. 
ANS:: .WORD 32561 RANDOM # SAVE LOCATION. 
TIME1:: .WORD 0 TIME COUNT 1. 
TIME2:: .WORD 0 3 TIME COUNT 2. 
JLOOP:: .WORD 0 :JMP COMMAND LOOP COUNT. 
OC:: .WORD 0 ;JMP_COMMAND sa COUNT. 

PATERN:: .WORD 0 PATTERN SELECT CODE. 

Cs: . 0 CURRENT TERMINATION CLASS CODE. 
RSSAVE:: .WORD 0 LOCATION FOR SAVING CURRENT DEVICE POINTER. 
TSSREG:: .WORD 0 CURRENT STATUS REGISTER. 
WIMFLG:: .WORD 0 WRITE TAPE MARK FLAG 
3 ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
3 AFTER EACH COMMAND IS COMPLETED. 
BGNFLG=. 
RETRYC:: .WORD 0 3# OF RECOVERY ATTEMPTS EXECUTED. 
RPTCNT:: .BYTE O WRITE REPEAT ON S SPOT CNTR: 4 “» Vg RETRY 
WRIYFG:: .BYTE 0 WRITE RETRY ON SAME SPOT IN omar © LAG 
WRTYER:: .BY 0 SWRITE RETRY ON SAME SPOT ERROR FLAG 
RECLOG:: .BYTE 0 sRECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
ERLOG:: .BYTE 0 :DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
RWERR:: .BYT 0 sREAD/WRITE ERROR HAS OCCURED. 
UNREC: : . SUNRECOVERABLE ERROR HAS OCCURED. 
ERRREC:: .BYTE 0 ERROR RECOVERY MODE. 
ENDERF=, 
: ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 
INTFLG:: .BLKW 4 s INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
EOTFLG:: .BLKW 4 SEOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 
BTPT:: .WORD 0 BAD TAPE SPOT POINTER TO BTO-BT3 VIA BTADDR 
EXPBOT:: .BYTE 0 sB0T IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 

DOM:: .BYTE 0 RANDOM EVERYTHING FLAG. 
VFYFLG:: .BYTE 0 sSET DURING WRITE/VERIFY COMMAND. 
RPTFLG:: .BYTE 0 PERFORMANCE REPORT HAS BEEN REQUESTED. 
SWBFLG:: .BYTE 0 sENABLES SWAP Ht FUNCTION WHEN NOT EQUAL TO ZERO. 
RE:: .8YTE 0 INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
DROPED:: .BYTE 0 + CURRENT UNIT HAS ore DROPPED 
T1SWB:: .BYTE 0 sTEST1 SWAP BYTES FLAG 
ALLEOT:: .BYTE 0 ALL UNITS @ EOT FLA G 
ERSFLG:: .BYTE 0 sERASE FLAG: DO ERASE AFTER A SPACE REV TO DELETE 

BADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
zA 3 TO 12 INCH GAP MAY RESULT. 
EVEN 

ENDFLG=. 
: ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 
STAFLG:: .BYTE 0 sSTART FLAG = SET BY INIT CODE IF STARTING. 
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GLOBAL DATA SECTION SEQ 0055 
652 003527 000 PWRFLG:: .BYTE 0 sPOWER FAILURE FLAG = SET ONLY DURING INIT. 
653 003530 000 TRAPD4:: .BYTE 0 STRAPED AT 4 F FLAG 
654 003531 000 MISCFG:: .BYTE 0 {MISCELLANEOUS F LAG 
655 003532 000000 TSUNT:: .WORD 0 ER OF THE UNIT UNDER | TEST PLUS HSSP&@BUF 
696 003534 000000 TSNP:: WORD 0 [FOR PRINT OUT UNIT # ONLY 
658 : OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
659 ; SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 
661 003536 000000 OPFLAG:: .WORD 0 :READ ONLY OPERATOR FLAG WORD 
662 EVEN 
664 ;THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
665 ZHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
666 7CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 
3540 140004 CMDSEQ:: .WORD SCH :SET CHARACTERISTICS. 
542 000040 WORD (CH.EAI 
670 003544 000001 WORD 
671 003546 000000 “WORD 0 
672 003550 102010 CMDSE2:: .WORD RWD :REWIND. 
673 003552 000001 .WORD 1 [BYTE COUNT. 
674 003554 000001 “WORD 1 ONCE. 
675 003556 000007 [WORD ANP SPATTERN. 
676 003560 104005 <WORD WRT ‘WRITE. 
677 003562 004000 “WORD DATCNT [MAX BUFFER LENGTH. 
678 003564 076400 -WORD 32000. 132,000 RECORDS. 
3566 000007 ;WORD ANP SRANDOM PATTERN. 
680 003570 104401 “WORD DR TREAD REV. 
681 003572 004000 <WORD DATCNT [MAX BUFFER LENGTH. 
682 003574 076400 “WORD 32000. 732,000 RECORDS 
683 003576 000007 “WORD RANP SRANDOM PATTERN, 
684 003600 104001 ;WORD RDF TREAD FWD. 
685 003602 004000 “WORD DATCNT [MAX BUFFER LENGTH. 
04 076400 “WORD 32000. i352. 000 RECORDS. 
687 003606 000007 ;WORD ANP ANDOM PATTERN. 
688 003610 102010 “WORD RD R WIND. 
689 003612 000001 WORD [BYTE COUNT. 
90 003614 000001 <WORD 1 ONCE. 
691 003616 ? <WORD RANP *PATTERN, 
692 003620 “BLKW 40. SEXTENSTION TO DOUBLE BUFFER SIZE 
693 003740 177777 SEQEND:: .WORD END 7SOFT END OF SEQUENCE TABLE. 
694 003742 177777 .WORD END 
695 003744 177777 .WORD END 
696 003746 177777 -WORD END 
697 003750 177777 “WORD END ARD END OF SEQUENCE TABLE. 
698 ZTHE FOLLOWING IS THE Tsbs COMMAND TABLE 
700 003752 100013 CMDTBL:: .WORD DRI ZDRIVE INIT. 
701 003754 104001 .WORD RDF *READ FORWARD. 
702 003756 104401 ;WORD DR TREAD REVERSE. 
703 003760 10400 -WORD WRT WRITE 
704 003762 104105 “WORD WIV SWRITE/VERIFY. (WRITE ALL RECORDS, RDR AND 
5 ZCHECK DATA ON ALL RECORDS, AND 
706 CHECK DATA ON ALL RECORDS.) 
707 003764 104010 «WORD SRF SPACE "N'' RECORDS FORWARD. 
708 003766 104410 .WORD SRR ZSPACE "N'" RECORDS REVERSE. 


p+  C 


! 
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ype 4 tert 4 
Nm “—Awourn 


762 
763 004153 
765 004156 


Oe ek kk a a ee 
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104 
105 


MmMNMOON 
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115 
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= 


120 


131 
104 
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SEQ 0056 
.WORD RNR :READ NEXT REVERSE. I.£., SPACE FWD, READ REVERSE. 
“WORD —RNF ZREAD NEXT FORWARD. adgens READ FORWARD, SPACE REVERSE. 
“WORD PF :READ PREVIOUS FORWARD. 1.£., SPACE REVERSE, READ FORWARD 
“WORD PR READ PREVIOUS REVERSE. 1:£., READ REVERSE. SPACE FORWARD 
“WORD WRR WRITE RETRY. 
“WORD RUD ZREWIND. 
-WORD MBR iMESSAGE BUFFER RELEASE 
“WORD WIM SWRITE TAPE MARK 
“WORD WIR 3WRI E MARK RETR 
“WORD SF ZSPACE 'N'' FILES FORWARD. 
“WORD SFR :SPACE "N'' FILES REVERSE. 
“WORD GES :GET EXTENDED STATUS. 
“WORD ERS ZERASE 3 INCHES OF TAPE. 
-WORD UNL :REWIND AND UNLOAD. 
“WORD CL iCLEAR TAPE. 
“WORD SCH :SET CHARACTERISTICS. 
“WORD DIA :DIAGNOSTIC COMMAND. 
-WORD  JMP ;JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
-WORD LY :DELAY 
“WORD END SEND OF COMMAND TABLE 
THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
:: .ASCII /DRI/ :DRIVE INIT. 
ASCII /RDF/ ZREAD FORWARD. 
“ASCII /RDR/ ;READ_REVERSE.. 
“ASCII /WRT/ E 
“ASCII /WTV/ SWRITE/VERIFY. (WRITE ALL RECORDS, ROR AND CHECK DATA 
Z0N ALL, RECORDS. RDF AND CHECK DATA ON ALL RECORDS.) 
“ASCII /SRE/ : SPACE NF" RECORDS, FORWARD, 
“ASCII /SRR/ SPACE ‘N'* RECORDS REVERSE. 
“ASCII /RNR/ ZREAD NEXT REVERSE. 1.£., SPACE FWD READ REVERSE. 
“ASCII /RNF/ ;READ NEXT FORWARD, I.E., READ FORWARD, SPACE REVERSE. 
“ASCII /RPF/ 3READ PREVIOUS FORWARD. iE., SPACE REVERSE, READ FORWARD 
“ASCII /RPR/ ZREAD PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD 
“ASCII /WRR/ ZWRITE RETRY 
“ASCII /RWD/ :REWIND. 
“ASCII /MBR/ iMESSAGE BUFFER RELEASE 
“ASCII /WTM/ SWRITE TAPE MAR 
“ASCII /WTR/ {WRITE TAPE MARK RETRY. 
“ASCII /SFF/ 3SPACE 'N' FILES FORWARD. 
“ASCII /SFR/ :SPACE 'N'' FILES REVERSE. 
“ASCII /GES/ ZGET EXTENDED STATUS. 
“ASCII /ERS/ ZERASE 3 INCHES OF TAPE. 
“ASCII /UNL/ ZREWIND AND UNLOAD. 
“ASCII /CLN/ CLEAN TAPE 
“ASCII /SCH/ ;SET CHARACTERISTICS. WHERE BRF=200, 40. 20, 0. 
3SEE_TSVOS/TSOS PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
“ASCII /DIA/ DIAGNOSTICS. SEE TSVOS/TSOS PROGRAMMING SPECIFICATION 
ZFOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC DATA 
ZINTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
“ASCII /JMP/ :JUMP TO THE NTH C IN THE COMMAND 
: SEQUENCE TABLE WHERE N IS DEFINED IN 
THE # OF OPERATIONS. 
“ASCII /DLY/ ZDELAY “N'' MS, WHERE "N IS DEFINED IN 
THE # OF OPERATIONS. 


eASCII = /END/ SEND OF COMMAND SEQUENCE. 


urate eseeitnentntiantiningninigueenientagiensnnnepn eaten 
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| GLOBAL DATA SECTION SEQ 0057 
766 EVEN 
767 
768 
769 
770 .SBTTL GLOBAL TEXT SECTION 
772 3+ 
773 2 THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
77% : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
775 : MORE THAN ONE TEST, 
776 t<- 
777 
rae 
786 : FORMAT STATEMENTS USED IN PRINT CALLS 
788 
789 .NLIST BEX 
791 004162 045 116 045 CODELM:: .ASCIZ /ZNZAUNIT %D1%A TSOS CODE LEVEL %03%N%N/ 
792 004231 045 116 045 SWSET:: -ASCI? /%NZAUNIT %D1%ZA TSOS SWITCH SETTINGS %O3%NZN/ 
794 0043 130 130 130 HALTM:: .ASCIZ /XXX CMD = TYPE <CR> TO CONTINUE/ 
795 004346 103 115106 CHOPKM::" -ASCIZ /CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD!/ 
797 004430 104 101 124 WIVERM:: .ASCIZ /DATA COMPARE ERROR/ 
798 004453 116 117 040 TOERM:: .ASCIZ /NO TSVOS RESPONSE/ 
004475 125 116 104 SCERM:: .ASCIZ /UNDEFINED SPEC COND/ 
800 004521 122 106 103 RFCERM:: .ASCIZ /RFC NON ZERO/ 
801 004536 124 123 126 NSSRM:: .ASCIZ /TSVOS NOT 
004556 122 105 124 RLEXM:: .ASCIZ /RETRY Limit EXCEEDED/ 
803 004603 104 122 111 ATTNM:: .ASCIZ /DRIVE OFF LI 
00462 106 125 116 FUNRM:: .ASCIZ /FUNCTION REJE 
805 004642 106 101 124 FATSM:: .ASCIZ /FATAL SUBSYSTEM ERROR/ 
00467 116 117 040 NOINTM:: .ASCIZ /NO INTERRUPT/ 
807 004705 124 101 120 TSAM:: .ASCIZ /TAPE STATUS ALERT/ 
808 004727 124 117 117 TOOMM:: .ASCIZ /TOO MANY INTERRUPTS 
809 004753 103 101 120 RNYM:: .ASCIZ /CAPSTAN RUNAWAY GET STATUS RESULTS:/ 
810 005017 122 105 103 RERM:: <:ASCIZ /RECOVERABLE ERR 
811 005041 125 116 122 URERM:: “ASCIZ /UNRECOVERABLE ERROR/ 
812 005065 045 116 045 DROPDM:: .ASCIZ /ZNZADROPPED UNIT %D1%N/ 
813 005114 045 116 045 AUDRPM:: :ASCI2 /2NZAALL UNITS DROPPEDININ/ 
814 005146 045 116 045 AUDRUN:: .ASCIZ /%NZADIAGNOSTI S ONE CONTROL LERNIN/ 
815 005226 045 116 045 DTAER2:: -ASCIZ "SNZABYTE: IDAZS2ZAWAS. HeBtsziAs/s: ZB82N' 
816 005275 045 104 064 DTAER3:: -ASCIZ “"ED4%A BYTES IN ERROR OUT OF X04 IN’ 
817 005337 «045 101 116 DTAERG:: .ASCIZ /%ANO DAT READIN/ 
818 005360 045 101 122, DTAERS:: “ASC? /EARECORD TOO L ONG: >%04%A BYTESIN/ 
819 005422 045 101 122 TY1:: :ASCIZ /EARECOVERED ON RETRY #iozH/ 
820 005456 045 101 104 OFLINM:: .ASCIZ /ZADRIVE Z01%A OFF LINEZN/ 
821 00550 045 101 107 GETSTM:: .ASCIZ /ZAGET STATUS CMD RESULTS: 2N/ 
822 0055 045 116 045 NODEV:: .ASCII / US TRAP AT 
823 005570 045 101 111 [ASCIZ /ZAINTERFACE BAD OR TSDB NOT SET TO ABOVE ADDRESSIN/ 
824 005653 040 052 052 UNIWLK: :ASCIZ / *eesTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORS**ee/ 
825 005741 045 116 000 :: -ASCIZ  /%N/ 
826 005744 045 116 045 CRLFSP:: .ASCIZ /%N%S7/ 
27 .LIST BEX 
828 “EVEN 
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| GLOBAL ERROR REPORT SECTION SEQ 0058 
Hy -SBTTL GLOBAL ERROR REPORT SECTION 
831 r+ 
832 3 THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
833 ; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
See ; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 
] ° 
836 
837 
838 005752 BGNMSG DTAERM 
005752 DTAERM: : 
844 005752 DATERM::PRINTB #STAER1,TSNP,PASCNT(RS) ,RECCNT(RS) 
005752 016546 003376 MOV RECCNT (RS) ,-(SP) 
005756 016546 003326 MOV PASCNT(RS) ,-(SP) 
5 013746 003534 MOV TSNP,=(SP) 
005766 012746 006436 MOV #STAER1,-(SP) 
005772 012746 000004 MOV #4,-(SP) 
005776 010600 MOV SP,.RO 
104414 TRAP CSPNTB 
006002 062706 000012 ADD #12,SP 
845 006006 PRINTB &#STAER7 
006006 012746 006530 MOV #STAER7,-(SP) 
0%6012 012746 000001 MOV #1,~(SP) 
C6016 010600 MOV SP,RO 
006-0 104414 TRAP CSPNTB 
006022 062706 000004 ADD #4,SP 
846 006026 010237 007066 MOV R2,RECRED sSAVE R2 
847 006032 010337 003436 MOV R3,TIME1 3SAVE R3 
848 006036 010437 003440 MOV R4,TIME2 sSAVE R4 
849 006042 004737 010064 JSR PC,RECTAP RETRIEVE RECORD READ 
850 006046 013702 007066 MOV RECRED,R2 sRESTORE R 
851 006052 010337 007066 MOV R3,RECRED SAVE RECORD READ 
852 006056 013703 003436 MOV TIME1,R3 sRESTORE R3 
853 006062 013704 003440 MOV TIME2 ,R4 sRESTORE R4 
PRINTB #STAER6,RECRED PRINT RECORD READ 
013746 007066 MOV RECRED,-(SP) 
006072 012746 006562 MOV #STAERG,-(SP) 
006076 012746 002 MOV #2,-(SP) 
006102 010600 MOV ° 
006104 104414 TRAP CSPNTB 
006106 062706 000006 ADD #6,SP 
855 006112 EXIT MSG 
006112 000167 «WORD JSJMP 
006114 000000 -WORD 110002-2-. 
£56 -EVEN 
858 006116 ENDMSG 
006116 L10002: 
859 006116 104423 TRAP CSMSG 
860 006126 GNMSG STAERM 
006120 STAERM: : 
861 006120 STAERM::PRINTB 9 #STAER1,TSNP,PASCNT(RS) ,RECCNT(RS) 
006120 016546 003376 MOV RECCNT(RS) ,=(SP) 
006124 016546 003326 MOV PASCNT(RS) ,=(SP) 
006130 013746 003534 MOV TSNP,=(SP) 
006134 012746 006436 MOV #STAER1,-(SP) 
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| GLOBAL ERROR REPORT SECTION SEQ 0059 
006140 012746 000004 MOV #4,-(SP) 
| 006144 010600 MOV PRO 
006146 104414 TRAP  CSPNTB 

006150 062706 000012 ADD #12,SP 
862 006154 PRINTB #STAER7 
006154 012746 006530 MOV #STAER7,=(SP) 
006160 012746 000001 MOV #1,-(SP) 
006164 010600 MOV SP,RO 
006166 104414 TRAP  (C$PNTB 
006170 062706 000004 ADD #4,SP 
863 006174 013702 002330 MOV CMDPKT.R2 
864 906200 042702 177740 BIC #177760,R2 
865 006204 00530 DEC R2 z1F CMD IS A READ 
866 006206 005702 TST R2 
867 006210 001016 BNE 500008 
868 006212 004737 010064 JSR PC ,RECTAP ._ :THEN RETRIEVE 
006216 010337 010064 MOV R3,RECTAP AN 
870 006222 PRINTB #STAER6,RECRED ZTYPE RECORD READ 
006222 013746 007066 MOV RECRED, (SP) 
006226 012746 006562 MOV #STAER6, -(SP) 
006232 012746 000002 MOV #2,-(SP) 
006236 010600 MOV SP,RO 
006240 104414 TRAP  CS$PNTB 
006242 062706 000006 ADD #6,SP 
871 006246 50000$: PRINTX M#STAER2 
006246 012746 006616 MOV #STAER2,-(SP) 
006252 012746 000001 MOV #1,-(SP) 
006256 010600 MOV SP,RO 
006260 104415 TRAP CSPNTX 
006262 062706 000004 ADD #4,SP 
872 006266 PRINTX #STAER3,CMDPKT,a@TSDB(RS) ,MSGPKT+MS.RFC, TSSREG,CTCC 
013746 003450 MOV CTCC,-(SP) 
006272 013746 003454 MOV TSSREG, (SP) 
006276 013746 002360 MOV MSGPKT+MS. RFC. Pi 
006302 017546 002514 MOV @TSDB(RS) . =< 
013746 002330 MOV CMDPKT ne a 
006312 012746 006675 MOV #STAERS,-(SP) 
316 012746 MOV #6,-(SP) 
322 00 MOV ¥ : 
006324 104415 TRAP CSPNTX 
006326 062706 000016 ADD #16, SP 
873 006332 PRINTX #STAERG,CMDPKT+2, CMDPKT+4, CMDPKT+6 
006332 013746 002336 MOV CMDPKT+6,-(SP) 
006336 013746 002334 MOV CMDPKT+4.=(SP) 
006342 013746 002332 MOV CMDPKT+2.=(SP) 
006346 012746 006733 MOV #STAERG, -(SP) 
006352 012746 004 MOV #%4,- 
006356 010600 MOV r 
104415 TRAP CENT 
874 ered meet: PRINTX #STAERS,MSGPKT+MS.XSO,MSGPKT+MS.XS1,MSGPKT¢MS. xs 2, RSGPRT one’ as Xs3. MSGPKT+MS .xS 
+ + + +S. mS Xx 
006366 013746 002372 MSGPKT#MS.XS4,-(SP) 
ROY MSGPKT+MS .XS3,=(SP) 
002 MOV MSGPKT+MS .XS2.=(SP) 


MOV MSGPKT+MS.XSO.-(SP) 
MOV #STAERS .-(SP) 
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| GLOBAL ERROR REPORT SECTION SEQ 0060 
sucess 91 012746 000006 MOV #6,-(SP) 
| MOV SP,RO 
006424 voeens TRAP C$PNTX 
006426 062706 000016 ADD #16,SP 
875 006432 EXIT MSG 
006432 000167 .WORD J$JMP 
| sad 006434 000432 “WORD 110003-2-. 
877 .NLIST BEX 
878 006436 045 101 130 STAER1: -ASCIZ /%AXXX CMD FAILED = UNIT %D1%S3%APASS: %D5%S3%ARECORD : 2D52N/ 
0065 045 101 120 STAER7: .ASCIZ /%APREVIOUS CMD WAS XXx rs 
881 006562 045 123 061 STAER6: .ASCIZ /%S11%A*® RECORD READ: 2D5%A 
00661 045 116 045 STAER2: .ASCIZ 7INLACMDPK TS oRAT SBALS4RARF CZSSLATSSRES3ZATCCEN/ 
883 006675 045 117 066 STAER3: .ASCIZ /2O64S2L06IS2L06IS2L062S220 1 2N/ 
884 006733 045 117 066 STAER4: .ASCII /%062N/ 
885 006740 045 117 066 “ASCII /206IN/ 
886 00674 045 117 066 SASCIZ /%06%N/ 
887 006753 045 101 130 STAERS: .ASCII /EAXSTORSGEAXST1 2S4RAXST2ES4ZAXST3ES4RAXSTGIN/ 
888 007027 045 117 066 -ASCIZ / /4O6%SCLOGLSZLOGESZEOSES2XOGIN 
890 “EVEN 
891 007066 000000 RECRED: .WORD 0 ;RECORD READ FROM TAPE 
893 007070 ENDMSG 
007070 L10003: 
as 007070 104423 TRAP — C$MSG 
895 .SBTTL GLOBAL SUBROUTINES SECTION 
Bs 
34+ 
898 : THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
899 > THAT ARE USED IN MORE THAN ONE TEST. 
901 . 
902 
903 
305 ¥ 
906 SROUTINE TO DO iA SOFT INITIALIZE OF THE CONTROLLER 
907 ‘BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
908 TTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
909 DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
11 : INPUTS: 
913 : RS CURRENT UNIT NUMBER 
915 : 
319 ZOUTPUTS: 
918 RO CONTENTS OF TSSR, IF ERROR 
919 3 CARRY SET IF INIT WAS OKAY 
320 ; CLEAR IF FATAL ERROR 
922 {CALLING SEQUENCE : 


923 JSR PC ,FIRSTU 
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, GLOBAL SUBROUTINES SECTION SEQ 0061 
924 3 JSR PC, SOF INIT 
925 3 BCS CONTINUE 
368 : ERRDF ;REPORT FATAL ERROR 
928 s* 
| 44 
930 007072 SOF INIT:: 
931 $ Sete SAVE THE REGISTERS 
| 932 007072 012775 000000 002524 MOV #0,aTSSR(RS) ; DO THE INIT. 
933 007100 004737 012700 JSR PC,WSSR ;WAIT FOR UNIT TO BE READY 
934 007104 012703 000550 MOV #360. RS 
935 007110 004737 007204 2$: JSR C,WAITF ; WAIT FOR SSR 
936 007114 103416 BCS eS 
937 007116 DELAY 250 
007116 012727 000250 MOV #250, (PC)+ 
007122 000000 - WORD 
007124 013727 002116 MOV LSDLY, (PC)+ 
007130 000000 - WORD 
007132 005367 177772 DEC -6(PC) 
007136 001375 BNE 74 
007140 005367 177756 DEC -22(PC) 
007144 001367 BNE 720 
007146 005303 DEC R3 
939 007150 001357 BNE 2s 
907152 017500 002524 3$: MOV + Ay ia -RO :GET THE TSSR REGISTER 
941 007156 010004 MOV RS :TSSR CONTENTS 
007160 042704 176277 BIC eters. A17!TS.A16!:TS. OFL>, RS 
943 007164 052704 002200 BIS #TS.SSR!TS.NBA,R4 R46 HAS EXPECTED CONTENTS 
944 007170 020400 CMP R4,RO ONLY EXPECTED BITS SET ? 
945 007172 001402 BEQ 5$ :BRANCH IF OKAY 
946 007174 000241 CLC [CLEAR THE CARRY FOR ERROR 
947 067176 000401 BR 10$ :GO TO EXIT 
948 007200 000261 5$: SEC zSET THE CARRY BIT 
pod 007202 000207 10$: RTS PC sRETURN TO CALLER 
951 : 
336 ; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
eee 3; INPUTS 
936 3 RS CURRENT UNIT NUMBER 
958 2 
44 ZS OUTPUTS: 
961 Z RO CONTENTS OF LAST Ht READ 
962 3 CARRY SET = READY BIT SET 
34 : CLR = TIMEOUT WAITING FOR READY 
965 007204 WAITF:: BREAK ; DO A SUPVSR BREAK FIRST. 
007204 104422 TRAP CSBRK 
007206 012746 005670 MOV #3000. ,-(SP) ; 300 MSEC TIMER. 
967 007212 017500 002524 2$: MOV @TSSR(RS) RO READ M3 TSSR REGISTER 
968 007216 105700 TST8 RO TEST nny BIT SET 
969 007220 100420 BMI 3% $ BRIT. ON STOP FLAG. 
970 007222 DELAY 25 3; WAIT 
007222 012727 000025 MOV #25, (PC)+ 
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GLOBAL SUBROUTINES SECTION SEQ 0062 
007226 060000 -WORD O ; 
0072 013727 002116 MOV LSDLY, «PC)+ 
0072 000000 -WORD O 
0072 005367 177772 DEC =-6(PC) 
007242 001375 BNE -- 
007244 005367 177756 DEC =-22(PC) 
007250 001367 BNE -720 

971 007252 005316 DEC (SP) sREDUCE DELAY COUNT 

972 007254 001356 BNE 2s RETR Y UNTIL TIMER EXPIR 

973 007256 000241 CLC : C = 0, CONTROLLER STILL RUNNING... 
974 007260 000401 BR 4$ 2+2-OR HUNG-UP AFTER 300 MSEC. 

975 007262 000261 3$: SEC C = 1, CONTROLLER IS STOPPED. 

976 007264 005326 4$: DEC (SP)+ RESTORE STACK WITHOUT CHANGING CARRY BIT 
977 007266 000207 RTS PC 

978 

979 

980 

3B 4 

oer sROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND AND CHECK FEATURES 
+ +4 : INPUT: 

987 : R4 ADDRESS OF COMMAND PACKET 

988 ; R5 CURRENT T R 

= 44 é REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 

997 sOUTPUT: 

992 3 

993 : RO TSSR CONTENTS 

994 : CARRY SET = WRITE CHARACTERISTICS COMMAND OK 

44 g CLR = WRITE CHARACTERISTICS FAILED 

p44 Zs IMPLICIT OUTPUT: 

999 5 SOF TWARE Sul TCHES SET AS FOLLOWS: 

1000 3 EXTFEA = EXTENDED FEATURES PRESENT 

10) 3 BENBSW = BUFFER ENABLE SWITCH ON OR OFF 

1003 ; 

1004 : SIDE EFFECTS: 

1005 

1006 : 

1007 $= 

1008 

1009 007270 WRICHK:: 

1010 007270 010475 002514 10$: MOV R4,aTSDB(RS) :SEND OUT COMMAND 

1011 007274 004737 007204 JSR PC ,WAITF sWAIT FOR SSR 

1012 007300 103401 BCS 40$ BR, IF e.. IS SET AND Ok 
1013 007302 000421 BR 60$ BR IF TROUBLE CARRY = CLEAR 
1014 007304 005724 40$: TST (R4)+ sSTEP IT 

1015 007306 a1 iSns MOV (R4) ,R2 sPOINT TO WRT CHARA DATA PACKET 
1016 007310 01120 MOV (R2) ,R3 GET ADDRESS OF MESSAGE BUFFER 
1017 007312 032763 000200 000012 BIT #X2.EFE,MS.XS2(R3) : EXTENDED FEATURES BIT SET? 
1018 007320 00140 BEQ 45$ 

1019 007322 005237 002322 INC EXTFEA SET EXTENDED FEATURES SW SWITCH 
1020 007326 45$: 
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032763 


000100 000012 


002324 


002524 


002514 
007204 


000004 


017156 


000006 


3 INPUT: 

s RS 

: RS 

WLKCHK 

10$: V 
JSR 
BCS 
BR 

40$: TST 
MOV 
MOV 
BIT 
BEQ 
JSR 
BR 

55$: SEC 

60$: CLC 

70$: 
RTS 
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#X2.BFE ,MS.XS2(R3) 
50$ 
BENBSW 


70$ 
@TSSR(RS) RO 
PC 


SEQ 0063 
aah ENABLE See et 


IF SWITCH NOT SE 
ett SOFTWARE SWITCH FOR ENABLED 


ae CARRY NO TROUBLE 


sCARRY CLEAR = ERROR 
RETURN TSSR CONTENTS 
; RETURN 


ADDRESS OF COMMAND PACKET 


CURRENT UNIT NUMBER 


R4,aTSDB(RS) 
WAITF 


+ 
(R4) ,R2 
(R2),R3 
#X0.WLK,MS.XSO(R3) 


1, UNIWLK 


PC ,DROPU 
60$ 
70$ 


PC 


CARRY CLEAR = 


SEND OUT COMMAND 

WAIT FOR SSR 

BR, IF SSR IS SET AND OK 
ier iy ne OUBLE CARRY = CLEAR 


POINT TO WRT CHARA DATA PACKET 
GET ADDRESS OF MESSAGE BUFFER 
21S UNIT WRITE LOCKED? 
3NO,PROCEED WITH TESTING 
;TAPE IS WRITE LOCKED 
TRAP (anes 


- WORD 
«WORD UNIWLK 


sDROP IT 
ZEXIT WITH CARRY=0 
Fy CARRY NO TROUBLE 


ERROR 
2RETURN 


ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND 


3 INPUT: 
RG 


OUTPUT: 
; RO 


ADDRESS A at Apel 


TSSR CONTENTS 


RS CURRENT 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


am 
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| GLOBAL SUBROUTINES SECTION SEQ 0064 

1074 : CARRY SET = WRITE CHARACTERISTICS COMMAND OK 

1075 : CLR = WRITE CHARACTERISTICS FAILED 

1077 S IMPLICIT OUTPUT: 

1078 ; 

1079 : 

1080 : 

1081 SSIDE EFFECTS: 

1082 ; 

1083 $ 

1084 3° 

1085 

1086 007436 WRTICHR:: 

1087 007436 010475 002514 10$: MOV R4,aTSDB(RS) zSEND OUT COMMAND ) 

1088 007442 004737 007204 JSR PC. WAITF ‘WAIT FOR SSR 

1089 007446 103401 BCS 50$ 7BR, IF SSR IS SET AND Ok 

1090 007450 000402 BR 60$ 38R IF TROUBLE CARRY = CLEAR 

1091 007452 50S: 

1092 007452 000261 SEC ZSET CARRY NO TROUBLE 

1093 007454 000401 BR 70$ TEXIT 

1094 007456 000241 60$: (CLC [CARRY CLEAR = ERROR 

1095 007460 017500 002524 70$: MOV @TSSR(RS) RO ZRETURN TSSR CONTENTS 

1096 007464 000207 RTS PC RETURN 

1097 

1098 

1099 i+ 

1100 : 

1101 ZROUTINE TO DO SET UP OF RUNNING CONDITIONS 

1103 : INPUTS: 

1104 : 

1105 : RS CURRENT UNIT NUMBER 

1106 ; 

1107 ; 

1108 SOUTPUTS: 

1109 : 

1110 5 

1111 SCALLING SEQUENCE: 

1112 : JSR PC, FIRSTU 

1113 ; JSR PC. SOFINIT 

1114 : BCS CONTINUE 

1115 : ERRDF :REPORT FATAL ERROR 

1116 : JSR PC ,.MDSET 

1117 : 

H19 é 

1120 007466 MDSET:: BREAK : DO A SUPVSR BREAK FIRST. i 

7466 106422 : TRAP _— CSBRK 

1121 007470 004737 007766 JSR PC, SETDEF ZRESTORE DEFAULT 

1122 007474 004737 007356 JSR PC. WLKCHK [CHECK WRITE LOCK 

1123 007500 103416 BCS 1$ C= Ke 

1124 007502 DELAY 1 WAIT 
007502 012727 000001 MOV #1, (PC)+ 
007506 000000 .WORD 0 
007510 013727 002116 MOV LSDLY, <C)+ 
007514 00 WORD 


0000 
007516 005367 177772 DEC ~6(PC) 
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061375 
005367 
001367 


104422 


000403 
013737 
000207 


GLOBAL SUBROUTINES SECTION 


177756 


007436 
002316 


000030 
002322 


007724 
007766 
007436 
002314 


000020 
002322 


007724 


007766 
007436 


003532 


003532 


003532 


003532 


002504 


012737 140006 002330 


nN 5 
PAGE 20-19 
BNE 
DEC 
BNE 
BREAK :BREAK TO SUPER seal 
DOCLN :D0 CLEAN AND ABORT ae 
1$: TST TS1MD yRUN IN DEFAULT MODE? 
BNE 10$ YES,R 
JSR PC, SETDEF TRESTORE DEFAULT 
JSR PC WRTCHK 'GO DO SWITCH CHECK 
TST HSSW .- 7D0 WE RUN AT 1001PS? 
BEQ 3$ NO 
BIS #EF .HSS, TSUNT ‘YES,SET THE BIT 
Ist EXTFEA ZARE WE SET? 
JSR PC, INVRT SINVERT THE SWITCH 
2$: JSR PC. SETDEF [NOW SET THE MODES 
JSR PC _WRTCHR D0 IT 
3S: Ist WTBUF :RUN WITH WRITE BUFFERING? 
BIS #EF .RWB, TSUNT SYES SET THE BITS 
TST EXTFEA SARE WE SET? 
BNE 4$ : 
JSR PC, INVRT S INVERT THE SWITCH 
4$: JSR PC. SETDEF ‘NOW SET THE MODES 
JSR PC_WRTCHR D0 IT 
5$: TST RDBUF :RUN WITH READ BUFFERING? 
BEQ 10$ :N 
BIS #EF .RBO, TSUNT [YES SET THE BITS 
Ist EXTFEA TARE WE SET? 
JSR PC, INVRT S INVERT THE SWITCH 
6$: JSR PC. SETDEF SNOW SET THE MODES 
JSR PC WRTCHR [D0 IT 
BR 11$ 
10$: MOV TSUNT, SCHBK+10 ZAND UNIT # 
11$: RTS PC :RETURN 


> SUBROUTINE TO 
: INPUTS: 


OUTPUTS: 


INVRT:: 
MOV 





INVERT SENSE OF EXT'D FEATURES SWITCH 


#WSM, CMDPKT+CP.CMD :WRT SUB-SYS MEM 


274 
=22(PC) 


C$BRK 
CSDCLN 


| B 6 
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1177 007732 012737 002506 002332 MOV #WSMBK , CMDPKT+CP.ADL 3MSG BUF ~ 
1178 007740 012737 000006 002336 MOV #6 a og ba CNT BY TE COUN 
1179 007746 012737 100010 002506 MOV #1600 0,WSMBK s INVERT UNE SWITCH 
1180 007754 012704 002330 MOV aCMDP A a : 
1181 007760 004737 007436 JSR PC,WRTCHR 300 IT 
1186 007764 000267 RTS PC RETURN 
1184 3 
aH 3; SUBROUTINE TO SETUP DEFAULT SET CHAR CMD 
1187 : INPUTS: 
1188 3 
1189 : 
1190 3 
1133 OUTPUTS: 
bb $ RG ADDRESS OF COMMAND PACKET 
1195 007766 SETDEF:: 
1196 007766 012701 140004 MOV #SCH,R1 suaiTe CHAR CMD 
1197 007772 010137 002330 MOV R1,CMDPKT+CP.CMD 3SET UP COMMAND 
1198 007776 012737 002474 002332 MOV #SCHBK ,CMDPKT+CP.ADL :SET UP ADR LO TO POINT TO MSG BUF (MSGPKO) 
1199 010004 012737 000012 002336 MOV ASCHCNT,CMDPKT+CP.CNT :SET BUFFER EXTENT 
1200 010012 012737 000040 002502 MOV #DFTSCH, SCHBK+6 SSTORE CHARACTERISTIC CODE IN SCH BLOCK. 
1201 010020 013737 003532 002504 MOV TSUNT , SCHBK+10 UNIT # 
1202 010026 012704 002330 MOV ACMDPKT RS sADDRESS OF CMD PACKET 
1203 010032 000207 RTS PC RETURN 
1508 
1906 M MODULES TO HANDLE TSOS INTERRUPTS. 
1208 
1209 010034 BGNSRV TSSINO 
010034 TSSINO:: 
1210 010034 005237 003472 INC INTFLG 7SET INTERRUPT OCCURRED FLAG. 
1211 010040 ENDSRV 
010040 L10004: 
1212 010040 000002 RTI 
1213 010042 BGNSRV TSSIN1 
010042 TSSINI:: 
1214 010042 005237 003474 INC INTFLG+2 3SET INTERRUPT OCCURRED FLAG. 
1215 010046 ENDSRV 
010046 L10005: 
1216 010046 000002 RTI 
1217 010050 BGNSRV TSSIN2 
010050 TSSIN2:: 
1218 010050 005237 003476 INC INTFLG+4 3SET INTERRUPT OCCURRED FLAG. 
1219 010054 ENDSRV 
010054 L10006: 
1220 010054 000002 RTI 
1221 010056 BGNSRV TSSIN3 
010056 TSSIN3:: 
1366 Bones 005237 003500 ~ ee INTFLG+6 3SET INTERRUPT OCCURRED FLAG. 
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000002 


032737 
001430 


011203 
000402 
017703 


000207 


000400 003420 


002360 
003410 
000001 


177400 


003520 


177400 


173230 


003540 


000001 


L10007: 


RECTAP:: 


50003$: 


50002$: 
50004$: 
50001$: 


50005$: 


SETCH:: 


PAGE 20-21 


RTI 
a TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


OUTPUTS: R3 = RECORD COUNT READ 

REGISTERS: R2, R3, RS 

CALLS: é 

BIT #MOD.CO,CMDWRD ;READ REV FETCH 
BEQ 50001$ 

MOV MSGPKT4+MS .RFC,R2 sFIND LAST READ AD. 
ADD DATARD ,R2 

BIT sit ts Saas :0DD AD., REASSEMBLE 


INC R2 ;REC COUNT STARTING 


SEQ 0067 


MOVB (R2),R3 [WITH UPPER BYTE FETCH 
BICB #177400.R3 

SWAB RS 

DEC R2 SLET R2 := R2 = #1 SLOWER BYTE AD. 
TSTB SWBFLG [IFB SWBFLG NE #0 THEN 

BEQ 50003$ 

DEC R2 SLET R2 := R2 = #1 ;LOWER BYTE AD. ON SWAP 
MOVB (R2),R4 :FETCH LOWER BYTE 

BICB #177400.R4 

BIS R 

BR 50004$ 

MOV (R2),R3 ZLET R3 := (R2) SEVEN AD. FETCH 
BR 50005$ 


MOV @DATARD ,R3 sLET R3 := @DATARD READ FWD FETCH 


RTS PC 


SUBROUTINE TO STORE A_ SET CHARACTERISTIC COMMAND AS 
Sl ENTRY IN THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


MOV #CMDSEQ,R1 
MOV WSCH,(Ri)+ 
MOV #DFTSCH, (R1)+ 
MOV #1,(R1)+ 

(Ri)+ 


sINIT CMD SEQUENCE TABLE POINTER. 

:THIS CODE SETS UP A SET CHARACTERISTIC 
:COMMAND AS THE FIRST COMMAND IN THE 
SEQUENCE TABLE. 

:SKIP PATTERN LOCATION. 


ros pe TO STORE A. REWIND COMMAND IN THE SEQUENCE TABLE 


<7 


am 


GLOBAL AREAS 

1279 

1280 

1281 

1282 

1283 010206 

1284 010212 

1285 010216 

1286 010222 

1287 010224 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 010226 

1297 010232 

1298 010232 

1299 010236 

1300 010240 

1301 010244 
010244 

1302 010246 

1303 010254 

1304 010256 

1305 010262 

1306 010266 

1307 010270 

1308 010276 

1309 010300 

1310 010304 

1311 010306 

1312 010314 

1313 010322 

1314 010330 

1315 010336 

1316 010344 

1317 010346 

1318 

1319 010354 

1320 010354 

1321 

1322 010362 

1323 

1324 010362 

1325 

1326 010362 

1327 010362 

1328 010366 

1329 010372 

1330 010376 

1331 

1332 010402 

1333 010402 

1334 010410 
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012701 
021127 


102010 
000001 
000001 


003540 
177777 
011172 


003412 


011064 
003515 


003420 
003516 
003434 


003416 
000022 


003416 


010524 


017060 


002604 


003414 


104005 


003432 


000022 
003416 


002336 


177777 


D 6 


SEQ 0068 


PAGE 20-22 
Z OUTPUTS: 
: REGISTERS: 
3 CALLS: 
SETRW:: MOV #RWD, (R1)+ :CMD = REWIND. 
MOV #1,(R1)¢ BRE. 
MOV #1,(R1)¢ :# OF OPERATIONS. 
TST (Ri) :SKIP PATTERN. 
RTS PC RETURN 
: SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
: S$: 
: QUTPUTS: R2 = TERMINATION INDICATOR (O=END OF TABLE,1=E0T) 
: CALLS: CMDAC, SETUP, EXSUB, CKHAE ,NEXTU, F IRSTU, VF YDAT. 
EXALL : MOV #CMDSEQ,R1 zINIT SEQUENCE TABLE POINTER. 
"CMP (R1) , #END sWHILE THERE ARE CMDS IN THE SEQUENCE TABLE. 
BEQ 50007$ 
JSR PC, SETUP 3G0 SETUP THE COMMAND BLOCK. 
50010$: BREAK : DO A SUPVSR BREAK FIRST. 
TRAP — C$BRK 
cmp NCNT -NCNTI ;WHILE THERE ARE RECORDS REMAINING: 
JSR PC, CMDAC ;STORE CMD ASCII IN ERROR MESSAGE. 
TSTB RANDOM [IF IN RANDOM MODE: 
BEQ 0012$ 
CMP CMDWRD , #WRT zIF CMD IS A WRITE THEN: 
BNE 50013$ 
TSTB = VFYYFLG zIF DATA IS NOT TO BE VERIFIED THEN: 
BNE 50014$ 
ADD RANS ,RANB ;LET RANB := RANB + RANS ;:GENERATE 
ADD RANB, RANS SLET RANS := RANS + RANB :RANDOM 
MOV RANS ,BRF CNT [LET BRECNT := RANS LENGTH 
BIC LENMSK,BRFCNT :MASK RANDOM LENGTH. 
CMP BRFCNT 418. 7D0 NOT ALLOW BYTE COUNT OF LESS THAN 18 
MOV #18. ,BRFCNT ;CHANGE COUNT OF 0-17 TO 18. 
50015$: 
MOV BRFCNT,CMDPKT+CP.CNT | ;MOVE BRF TO CMD PACKET. 
50014$: 
50013$: 
50012$: 
JSR PC, EXSUB sISSUE CMD TO ALL. AWAIT INTS, CHECK STATUS. 
JSR PC. CKHAE [CHECK HALT AFTER EACH CMD FLAG. 
MOV #1,R2 ILET R2 := # 7SET ALL UNITS AT BOT/EOT. 
JSR PC. FIRSTU zFIND FIRST UNIT. 
50016$: : 
CMP DEVTBL (RS) ,#END ;WHILE THERE ARE MORE UNITS: 
BEQ 50017$ 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1335 019412 
10420 


WAWw 
So 


1 
1 
1 
1 
1 


10446 


ocsoscsscesse ooo 
vw 
&* 


BRSSEESER ERR 
RR 
oa 


So 
= 
R 
uw 
oa 


w WWAWWNWWNAAA 
RRR S La LS Sot Lt ei 
Sc atte a 
Ww 
So 


2 
3 010520 


WWUAANAWWWwWww 
ttt Pa 


2 


as a ee a ee et ed ee el ee ed ee me a ee ed ed ak ed ed ed ed ed oe a oe 
Ww 
Sess 
CSOnNuM 


WWW 
s 
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032737 
0014 

032765 
001001 
005002 
000411 


032765 
001404 


004737 
000746 


020227 
001001 
000412 
005237 
013737 
000655 
004737 


000645 


005002 
000207 


004737 
026527 


032765 


000400 
000002 


000001 
000001 


017126 


000001 


003412 
003420 


016044 


017060 
002604 
000400 
000002 


003420 
003502 


003502 
003420 


003424 


177777 
003420 
003502 





50021$: 
50020$: 


50023$: 


50024$: 
50022$: 


50017$: 


50025$: 


50011$: 


50007$: 


EXARTN: 


WAIT 8 0 Be Be Be Oe Be 


XSUB: : 
0026$: 


E 6 
PAGE 20-23 
SEQ 0069 
g17 #MOD. CO, CMDWRD z1F CMD IS REVERSE THEN: 
BIT #X0.BOT ,EOTFLG(RS) :1f NOT AT BOT THEN: 
BNE §0021$ 
CLR R2 sLET R2 := #0 ;CLEAR EOT/BOT FLAG. 
BR 50022$ ZELSE IF CMD IS NOT REVERSE: 
BIT #X0.EOT,EOTFLG(RS) 
BEQ 50023$ 
BIT #CMD.CO,CMDWRD 
BNE 50024$ 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
CLR R2 sCLEAR EOT/BOT FLAG. 
JSR PC ,NEXTU sFIND NEXT UNIT 
BR 50016$ 
CMP R2,41 ;IF ALL UNIT ARE AT EOT/BOT THEN: 
BNE 50025$ 
BR EXARTN sRETURN WITH R2 = #1. 
INC NCNT sLET NCNT := NCNT + #1 ;UPDATE RECORD COUNT. 
MOV CMDWRD , PCMDWD ;SAVE PREVIOUS COMMAND WORD. 
BR 50010$ 
JSR PC, VFYDAT yIF LAST CMD WAS A WRITE VERIFY, THEN GO 
[VERIFY THE LAST N RECORDS OF DATA. 
BR 50006$ 
CLR R2 sLET R2 := 40 3SET NORMAL RETURN INDICATOR. 
RTS PC SRETURN. 


SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
“8eo = AND CHECK ALL STATUS. 


OUTPUTS: 
REGISTERS: 
CALLS: EXCUTE ,GOWAIT ,NEXTU,FIRSTU. 
: JSR PC,FIRSTU :SET UP FOR FIRST UNIT. 
CMP DEVTBL (RS) ,#END :WHILE THERE ARE MOR : 
Bit amos 0 CMDWRD IF CMD IS ee mah an 
° e e HEN: 
EQ 50030$ 


8 
BIT #X0.B0T ,EOTFLG(RS) :1F NOT AT BOT 


1392 010556 
1393 010560 
010566 


- 
Ww 
R 


10610 


ARSVLIS SSL 


t ah ed tel ee nt ee ed 1 
& 
oO 


NISSONAARWNZOSR NE 


oooooo oo ocooooco oO 


— 
~~ 
Nm 
— 
So 
$2 
~ 


& KKRFESE 
% SNSnno 


ee el ee ee a a ee ee a ed de ad ad ed ed ed 
* So 


SRL RLRRESE 
Sata et td et ed 


S522 & 


14 

1424 010664 
1425 

1426 010670 


1431 
1432 010704 
1433 
1434 010704 
1435 
1436 010704 
1437 010704 
1438 
1439 010710 


1444 010724 
724 


1445 010726 
1446 010726 
1447 010732 





——___-_— 
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000435 
023727 


016537 
005077 
032765 
001404 
032737 
001003 
004737 
000405 


105737 
001402 
004737 


004737 
000707 
105737 
001403 
105037 
104424 
004737 
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000001 
003524 
012054 


012054 


003426 
000002 


002616 
172646 


000001 
000001 


012054 


003524 
012054 


017126 


003517 
003517 


017060 


003502 


000002 
003502 


003512 


003502 
003420 


F 6 
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50033$: 
50032$: 


50034$: 
50031$: 
50030$: 


50036$: 


50037$: 


50040$: 


50042$: 
50041$: 
50035$: 


50027$: 


50043$: 
50044$: 


SEQ 0070 


one coT EOTFLG(RS) BUT IF AT EOT 
500328 © ; 


ALLEOT zAND ALL OTHERS AT EOT 
SO083S L OTHERS EO 
PC ,EXCUTE 3 THEN EXECUTE REV CMD 

:IF NOT ALL AT EOT, FREEZE UNIT(S) AT EOT 
50034$ IF NOT AT BOT AND 
PC ,EXCUTE sNOT AT EOT, EXEC REV CMD 
50035$ sELSE IF CMD IS NOT REVERSE: 
CMDLG #2 


50036 

#X0.B0T ,EOTFLG(RS) 

50036$ 

;CLEAR BAD oT COUNTS WHEN WRITING FROM BOT 


BTADDR(RS) ,BTPT — LET BTPT := BTADDR(RS) 
aBTPT LET @BTPT := #0 


#X0.EOT EOTFLG(RS) 
50037$ 


#CMD.CO,CMDWRD 
500408 

:IF NOT AT EOT OR NOT A MOTION CMD THEN: 
PC ,EXCUTE ISSUE CMD TO TSOS 
50041$ 
ALLEOT 7: IFB ALLEOT NE #0 THEN 
50042$ . 
PC ,EXCUTE 
PC .NEXTU zFIND NEXT UNIT IN TEST CYCLE. 
50026$ 
RPTFLG 31F REPORT HAS BEEN REQUESTED THEN: 
500438 EEN REQUESTED THEN 
RPTFLG CLR THE FLAG, 

PRINT THE PERFORMANCE REPORT. 

TRAP CSDRPT 

PC,FIRSTU SET UP FOR FIRST UNIT. 


am 


| GLOBAL AREAS 
| GLOBAL SUBROUTINES SECTION 


1448 010732 


1478 011034 
1479 
1480 011040 


1484 011050 
1485 

ooee 011054 
1488 011054 
1489 

1490 011054 
1491 011054 
1492 

1493 hs | 
1494 011062 
ree 011062 
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105737 
001402 
004737 


004737 
000724 
000207 


002604 
000400 
000002 
000001 
003524 
012364 


012364 


000001 
000001 


012364 


003524 
012364 


017126 


177777 
003420 
003502 
003502 


003502 
003420 


PAGE 20-25 


50051$: 


50050$: 


50052$: 


50047$: 
50046$: 


50054$: 


50055$: 


50057$: 
50056$: 
50053$: 


JSR 
BR 


50045$: 


RTS 


G 6 


144 aiaaay 
#MOD.CO,CMDWRD 
rt . aaartaacaataa 
#X0.EOT ,EOTFLG(RS) 
50050$ 


PC ,GOWAIT 


50052$ 
PC ,GOWAIT 


50053$ 

#X0.EOT ,EOTFLG(R5) 
50054$ 
#CMD.CO,CMDWRD 
50055$ 


PC ,GOWAIT 
50056$ 
ALLEOT 


50057$ 
PC ,,GOWAIT 


PC ,NEXTU 
50044$ 
PC 


SEQ 0071 


sWHILE THERE ARE MORE DEVICES: 
zIF CMD IS REVERSE THEN: 
:IF NOT AT BOT 


:BUT IF AT EOT 
sAND ALL OTHERS AT EOT 


THEN WAIT FOR CMD END 
:IF NOT ALL AT EOT, DO NOT WAIT 
NOT AT BOT, AND NOT AT EOT 


WAIT FOR INT,CHECK STAT 


sELSE IF CMD IS FORWARD: 


zIF NOT AT + OR NOT A MOTION CMD THEN: 


sWAIT FOR INT,CHECK STATUS. 


:1FB ALLEOT NE #0 THEN 


zFIND NEXT UNIT IN TEST CYCLE. 


sRETURN. 


mane 


THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PR 
COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CHDURD US 
nt pg CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 


OUTPUTS: 
REGISTERS: R3, R4. 
CALLS: GCMDA 


496 
1500 ; 
04 e 








; 


H 6 
GLOBAL AREAS = MACRO M1113. 25-MAY=82 09:51 PAGE 20-26 | ¢ 
GLOBAL SUBROUTINES SECTION SEQ 0072 |G 
1505 011064 013706 903420 CMDAC:: MOV CMDWRD,R4:LET RG := CMDWRD zR4 = CMD BINARY. | 
1506 011070 004737 0171 JSR P :GET CMD ASCII. 
1507 011074 112337 006440 MOVB (RS), STAERT #2 :MOVE CMD ASCII 
1508 011100 112337 006447 MOVB  (R3)+.STAERT+ : 
1509 011104 111337 006442 MOVB  (R3),STAER1+4 SINTO MSG. 
1510 011110 013704 00 2 MOV PCMDWD ,R4 zR4 = PREVIOUS CMD BINARY. 
1511 011114 004737 011136 JSR PC, GCMDA :GET CMD’ ASCII. 
1512 011120 112337 006554 MOVB = (R3) +, STAER7#26 :MOVE CMD ASCII 
1513 011124 112337 006555 MOVB  (R3)+.STAER7+#25 
1514 011130 111337 096556 MOVB  (R3),STAER7+26 ZINTO MSG. 
1515 011134 000207 RTS PC ;RETURN. GO EXECUTE NEXT FUNCTION. 
1517 
1518 : SUBROUTINE TO FIND THE ASCII ECQUIVILENT OF THE COMMAND IN RG. 
1519 : ADDRESS OF ASCII 1ST WORD IS RETURNED IN R3. 
1520 : INPUTS: R4 = PRESENT COMMAND WORD. 
1521 : OUTPUTS: R3 = ADDRESS OF PRESENT COMMAND ASCII. 
1522 : REGISTERS: 
1523 ; CALLS: 
1525 011136 005003 GCMDA:: CLR R3:LET R3 := #0 zINIT CMD TBL POINTER. 
1526 011140 50060$: 
1527 011140 026304 003752 CMP CMDTBL(R3) ,R4 ZUNTIL CURRENT CMD IS FOUND: 
1528 011144 001403 BEQ 50061$ 
1529 011146 062703 000002 ADD #2,R3 SLET R3 := R3 + #2 ZSEARCH CMD TABLE. 
1530 011152 000772 BR 50060$ 
1531 011154 50061$: 
1532 011154 010304 MOV R3.R4 LET RG := R3 
1533 011156 006203 ASR R3 sPOINT TO ASCII FOR THAT COMMAND 
1534 011160 000240 NOP 
1535 011162 060403 ADD R4,R3 
1536 011164 062703 004040 ADD #CMDASC,R3 
1537 011170 000207 RTS PC RETURN. 
1539 : THIS SUBROUTINE LOADS THE TSOS COMMAND PACKET FROM ONE 
1540 : ENTRY IN THE SEQUENCE TABLE. 
1541 : INPUTS: 
1542 : OUTPUTS: 
1543 : REGISTERS: R2, R3. 
1382 3 CALLS: GENPAT. 
1546 011172 005037 00342 SETUP:: CLR CMDLG 3CLR CMD LOGGING CODE(DISABLES LOGGING) 
1547 011176 012137 002330 MOV (R1)+, CMDPKT [LOAD THE COMMAND . 
1548 011202 011137 002536 MOV (R1), CMDPKT+CP. CNT [LOAD THE BYTE/RECORD/FILE COUNT. 
1549 011206 011137 003416 MOV (R1) .BRFCNT [SAVE BRE FOR THIS COMMAND. 
1550 011212 013702 002330 MOV CMDPKT ,R2 °GET CMD. 
1551 011216 042702 177740 BIC #NCMD.C,R2 [CLR ALL BUT CMD BITS. 
1552 011222 01020 MOV R2, SSAVE IT TWICE. 
1553 011224 162703 000010 SUB #CMD.C3,R3 [POSITION COMMAND? 
1554 011230 001003 BNE ‘BR IF NOT. 
1555 011232 011137 002332 MOV (R1), CMDPKT+2 7MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 
1556 011236 000464 BR 4 
1557 011240 023727 002330 100011 28: CMP CMDPKT, #WTM z1F (MD IS A WRITE TAPE MARK THEN: 
1558 011246 001003 BNE 50062$ 
1559 011250 012737 000002 003426 MOV #2, CMDLG zW™4 LOGGING CODE IS 2. 
1561 011256 50062$: 





i 
' 


"GLOBAL AREAS 
| GLOBAL SUBROUTINES SECTION 


| 


1366 011256 
1563 011260 
1564 011264 
1565 011266 
1566 011274 
1567 011302 
1568 011304 
1569 

1570 011312 
1571 011314 
1572 011314 
1573 

1574 011322 
1575 011322 
1576 011324 
1577 011326 
1578 011332 
1579 011334 
1580 011342 
1581 011350 
1582 011354 
1583 011362 
1584 011364 
1585 011366 
1586 011372 
1587 011374 
1588 011402 
1589 011410 
1590 011412 
1591 011416 
1592 011422 
1593 011426 
1594 011430 
1595 011434 
1596 011436 
1597 011444 
1598 011450 
1599 011456 
1600 011464 
1601 011466 
1602 011474 
1603 

1604 011502 
1605 011504 
1606 011504 
1607 

1608 011510 
1609 011510 
1610 011516 
1611 011524 
1612 011530 
1613 011532 
1614 

1615 011540 
1616 011540 
1617 011546 
1618 011554 


MACRO M1113 25-MAY-82 09:51 


010203 
162703 
001017 


000001 
003410 
000400 
000004 


000006 


003516 


003420 
002330 
003520 


010000 


004000 
002330 


002332 
002330 


003426 


003426 


002332 
002336 


002504 


002336 
002332 


002332 


003426 
002330 


003516 
002330 


003424 
003420 


I 6 


PAGE 20-27 
MOV R2,R3 
SUB #CMD.CO,R3 
BNE 1$ 
MOV DATARD, CMDPKT+CP.ADL 
BIT #Mop. C6, CMDPKT 
BEQ 50063$ 
MOV #4, CMDLG 
BR 500648 
50063$: 
MOV #6, CMDLG 
50064$: 
BR 3$ 
1$: MOV R2,R3 
SUB #CMD.C2,R3 
BNE 4$ 
MOV #SCHBK, CMDPKT+CP. ADL 
MOV #SCHCNT, CMDPKT+CP. CNT 
MOV (R1), SCHBK+6 
MOV TSUNT , SCHBK+10 
BR 3$ 
4$: MOV R2,R3 
SUB #CMD.C1!CMD.C2,R3 
BNE 3$ 
MOV #DIACNT,,CMDPKT+CP. CNT 
MOV #DIABLK.CMDPKT+CP. ADL 
38: TST (R1)¢ 
MOV (R1)*,NCNT1 
CLR NCNT 
MOV (R1)+,PATERN 
MOV R2,R 
SUB #CMD.CO!CMD.C2,R3 
BNE 5$ 
MOV DATAWT, CMDPKT+CP.ADL 
JSR PC, GENPAT 
MOV #2. CMDLG 
5$: BIT #VFEY.C, CMDPKT 
BEQ 50065$ 
MOVB #1,VFYFLG 
BIC #VEY.C,CMDPKT 
BR 50066$ 
50065$: 
CLRB Ss YFLG 
50066$: 
MOV CMDWRD , PCMDWD 
MOV CMDPKT. CMDWRD 
TST8 SWBFLG 
BEQ 50067$ 
BIS #SWB.C.CMDPKT 
50067$: 
BIC #BRF.C,CMDPKT 
MOV CMDPKT. CMDSAV 
RTS PC 





SEQ 0073 


AD THE BUFFER ADDR. 
S A READ REV THEN: 
CODE IS 4. 

F CMD IS A READ FwD: 


sLOGGING CODE IS 6. 


: CONT INUE 

[A SET CHARACTERISTICS CMD? 
BR IF NOT. 

SSET UP ADR LO FOR SET CHAR. 


SET BUFFER EXTENT 
ge eeeeee CODE IN SCH BLOCK. 


CONTINUE. 
TIS IT 
:A DIAGNOSTIC (DIA) CHD? 


LOAD BUFFER EXTENT. 

LOAD BUFFER ADR LOW. 

POINT TO N (NUMBER OF TIMES TO EXECUTE THIS INS 
SAVE NUMBER OF OPERATIONS 

CLEAR OPERATION COUNTER. 

4 ty ethan CODE FOR CURRENT CMD. 


tA WRITE? 
. 1¢ 


2BR IF NOT. 
LOAD WRITE BUFFER LO ORDER. 
rhe eet THE WRITE PATTERN. 


sWRITE LOGGING CODE IS 2. 
2 IF DATA VERIFICATION IS REQUIRED: 
zSET VERIFY FLAG. 


sCLEAR VERIFY BIT(NOT USED BY HARDWARE). 
sIF DATA VERIFICATION IS NOT REQUIRED: 


sCLR VERIFY FLAG. 


sSAVE PREVIOUS CMD WORD. 
zSAVE PRESENT CMD WORD. 
:IF SWAP BYTES IS ENABLED: 


sSET SWAP BIT IN COMMAND. 


CLR BRF BIT (INTERNAL ONLY). 
Ait Lad WORD OF COMMAND P/CKET. 


‘mehpeeenies ye 
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1619 

i 

ig 

fe 

i 

1626 

1627 011338 
1628 0115 
1669 011564 
1630 011570 
1631 011572 
lene 011576 
1633 011602 
1634 011606 
1635 011612 
1636 011616 
1637 

1638 

1639 

1640 

1641 011620 
1642 011622 
1643 011624 
1644 011626 
1645 011630 
1646 011632 
1647 011634 
1648 011636 
1649 011640 
1650 

1651 

1652 

1653 011642 
1654 011646 


1 66 
1659 011666 
1660 011670 
1661 


1662 011674 
1663 011674 


1664 
1665 011676 


1674 
1675 011716 


013703 
006303 


sooonm 


ee eA a a 


CcCoonnnnas 


win 
No 


02 
012703 
000764 
000207 


012703 
162704 


02 
011620 


000400 
000002 


001002 
001000 


000400 


177777 
000002 


OUTPUTS: 
REGISTERS: R2, R3, 
CALLS: PATRO - BAia? 
GENPAT: : MOV PATERN,R3 :SETUP PATTERN ROUTINE POINTER 
MOV BRFCNT .Ré :SET LENGTH OF WRITE BFR 
BIC #1,R4 ZROUNDED UP TO NEXT WORD 
SUB #2,R4 :WITH FIRST WORD RESERVED 
MOV DATAWT »R2 [FOR RECORD COUNT 
JSR PC; @PATTBL(R3) ;GO GENERATE THE APPROPRIATE PATTERN. 
RTS PC ZRETURN TO SETUP SUBROUTINE. 
zTSOS WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
[CORRECT DATA PATTERN GENERATING ROUTINE. 
PATTBL: PATRO 
PATRI 
PATR2 
PATRS 
PATRG 
PATRS 
PATR6 
PATR7 
PATR8 
yINCREMENTING PATTERN. 0 = 377. 
PATRO:: MOV #400,R3;LET R3 : 400 
1$: sug a. R4:LET RG := hee - #2 :DECREMENT WORD COUNT. 
MOV es (R2)+ ‘ET ORE DATA WORD. 
ADD #1002,R3 [UPDATE PATTERN 
CMP R3,41000 IF PATTERN HAS WRAPPED AROUND THEN: 
BNE 50070$ 
MOV #400,R3 ZINIT THE PATTERN AGAIN. 
50070$: 
BR 1$ :D0 IT AGAIN. 
2s: RTS PC RETURN. 
yALL ONE'S PATTERN. 
PATR1:: MOV #-1,R3 TALL ONES PATTERN; . 
ZROPAT: SUB #2,R4 :DECREMENT BYTE COUNT. 
BMI 1$ [DONE?,BR IF 
MOV R3,(R2)+ SIF NOT LOAD NEXT BYTE WITH PATTERN. 
BR ZROPAT :DO IT AGAIN. 
1$: RTS PC ;RETURN. 


J 6 


PAGE 20-28 


SEQ 0074 


THIS SUBROUTINE tek AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 


THE DESIRED PATTER 
INPUTS: 


THE WRITE AND WRITE/VERIFY COMMANDS. 


am 


aa ge > ee k é 
peat AREAS MACRO M1113 25-MAY-82 09:51 PAGE 20-29 
GLOBAL SUBROUTINES SECTION SEQ 0075 
1676 
err sALL ZEROES PATTERN. 
1679 011720 005003 PATR2:: CLR R3 sCLR PATTERN REGISTER. 
1680 011722 004737 011704 JSR PC, ZROPAT 3G0 GENERATE IT. 
1681 011726 000207 RTS PC RETURN. 
1oe? sONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 
1685 011730 012703 000401 PATR3:: MOV #601,R3 s INIT PATTERN REGISTER. 
1686 011734 162704 000002 WLKZRO: SUB #2,R4:LET RG := R& = #2 ;DECREMENT WORD COUNT. 
1687 011740 100404 BMI 1 :BR IF DONE. 
1688 011742 onOase MOV R3,(R2)+ ;LOAD DATA. 
1689 011744 00630 ASL R3 sSHIFT PATTERN. 
1690 011746 005503 ADC RS sADD CARRY BACK INTO PATTERN. 
1691 011750 000771 BR WLKZRO [D0 IT AGAIN. 
1698 011752 000207 1$: RTS PC SRETURN. 
ioe * ;ZERO BIT WALKING FROM R TO L IN A FIELD OF 1°S. 
1696 011754 012703 177376 PATR4:: MOV #177376,R3 ZINIT PATTERN REGISTER. 
1697 011760 004737 011734 JSR PC, WLKZRO 3GO GENERATE ;IT. 
ies 011764 000207 RTS PC : \. 
1700 ZALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
1703 ; COMPLEMENTED. 
1703 011766 012703 125125 PATRS:: MOV #125125,R3 Z INIT PATTERN REGISTER. 
1704 011772 004737 011704 JSR PC, ZROPAT [G0 GENERATE IT. 
1705 011776 000207 RTS PC : ‘ 
a sALTERNATING BYTES OF 000 AND 377. 
1709 012000 012703 177400 PATR6:: MOV #177400,R3 ZINIT PATTERN REGISTER. 
1710 012004 162704 000002 1$: Su8 #2,R4 :DECREMENT WORD COUNT. 
1711 012010 100402 BMI IF DONE. 
1712 612012 010322 MOV R3,(R2)+ ;LOAD DATA. 
1713 012014 000773 BR 1$ [D0 IT AGAIN. 
1214 012016 000207 2s: RTS PC : ’ 
ire sRANDOM PATTERN GENERATOR 
1718 012020 162704 000002 PATR7:: SUB #2,R4 ZDECREMENT WORD COUNT 
1719 012024 100411 BMI GIT 3BR IF DONE. 
1720 012026 063737 003434 003432 ADD RANS ,RANB 
1721 012034 063737 003432 003434 ADD RANB.RANS :GET NEW #. 
1722 012042 013722 003434 MOV RANS, (R2)+ SSAVE #. 
1723 012046 000764 BR PATR? CONTINUE. 
1724 012050 000207 GIT: RTS RETURN 
1766 ‘ NO PATTERN GENERATION. 
i768 012052 000207 PATR8:: RTS PC sRETURN. 
1730 : THIS SUBROUTINE INITIATES TSOS COMMAND EXECUTION 
1731 PF AND CHECKS FOR TSOS RESPONSE. 
1732 : INPUTS: 
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012737 


026527 
001405 
004737 
004737 
000767 


013705 
016537 


016503 
005002 


GLOBAL SUBROUTINES SECTION 


177777 
003436 
003436 
012734 


017156 


000200 
003420 


003452 
017060 


002604 


012700 
017126 


003452 
002544 


002544 


000020 


177777 
000002 


002212 
003472 
002524 


003436 


002524 
140004 


177777 


002474 


000001 
003454 


50072$: 
50074$: 
50075$: 
50073$: 


50076$: 


BR 
50077$: ; 





OUTPUTS: 
REGISTERS: 
CALLS: 
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R2, R3 


#-1,TIME1 

TIME1 

TIME1 
0072$ 


PC ,MOVMSG 
2.NSSRM,STAERM 


PC ,DROPU 

EXCRIN 
#TS.SSR,ATSSR(RS) 
CMDWRD ,#SCH 
50073$ 

R5 ,RSSAVE 
PC,FIRSTU 
DEVTBL(RS) .4END 
50075$ 


PC,WSSR 
Pc ,NEXTU 


50074$ 

RSSAVE ,R5 
MSGPKA(R5) , SCHBK 
MSGPKA(RS) ,R3 
R2 


R2,4MSGCNT 
50077$ 

#-1, (R3)+ 
#2,R2 

50076$ 

DINT 

1$ 
INTFLG(RS) ,#1 


@TSSR(RS) , TSSREG 
15, TOOMM, STAERM 


SEQ 0076 


DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 


z INIT TIMEOUT COUNTER. 
;WAIT = 


[UPDATE. TIMEOUT COUNTER. 
SIF TIMED OUT: 


MOVE CURRENT PACKET MSG. 
sREPORT TSOS NOT READY 


CSERDF 
«WORD 2 
«WORD NSSRM 
«WORD STAERM 


DROP THE UNIT. 

RETURN. 

sWAIT UNTIL DEVICE IS READY. 

IF WE ARE DOING A SET CHAR CMD THEN: 


SAVE CURRENT DEVICE POINTER. 
FIND FIRST UNIT. 


WHILE DEVTBL(RS) NE #END DO 


WAIT FOR UNIT READY OR TIME OUT, 
FIND NEXT UNIT. 


RESTORE CURRENT DEVICE POINTER. 
:SET UP ADR OF MSG PKT IN SCH BLOCK. 


sADR OF THIS UNIT*S MSG PACKET. 
sCLR COUNTER. 


sWHILE THERE ARE MORE LOCATIONS: 


z INIT THE MSG PACKET WITH ALL 1°S 
sUPDATE COUNTER. 


:ARE INTERRUPTS DISABLED. 
SIF MORE THAN ONE INTERRUPT HAS OCCURED: 


sFREEZE THE CURRENT STATUS REG FOR PR 
sREPORT TOO MANY INTERRUPTS. oe 


TRAP CSERDF 
-WORD 15 
- WORD 


TOOMM 
-WORD STAERM 


na | 
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1782 012264 004737 017156 JSR PC ,DROPU :DROP_THE UNIT 

1re? 012270 000434 BR EXCRIN RETURN = UNIT HAS BEEN DROPPED. 

1785 012272 501008: 

1786 012272 005065 003472 CLR INTFLG(RS) :CLR at ly FLAG FOR THIS DEV. 

1787 012876 052737 000200 002330 BIS #IE.C,CMDPKT :SET INT ENABLE 

1788 012304 105737 003471 1$: - TSTB_—-ERRREC;1FB ERRREC EQ #0 THEN 31F NOT RETRYING 

1789 012310 001005 BNE 501018 

1790 012312 005265 003376 INC - RECCNT(RS) sLET RECCNT(RS) := RECCNT(RS) + #1 

1731 012316 016577 003376 171062 MOV RECCNT(RS) ,@DATAWT : THEN UPDATE REC COUNT TO WRITE IT ON TAPE 

1793 012324 501018: 

1794 012324 012775 002330 002514 MOV #CMDPKT ,@TSDB(RS) sLOAD TSDB WITH CMDPKT ADDRESS 

1795 THIS INITIATES COMMAND EXECUTION. 

1796 012332 032775 000200 002524 BIT #TS.SSR,ATSSR(RS) 2 IF READY DID NOT DROP THEN: 

1797 012340 001410 BEQ §=—-501028 

1798 012342 004737 012734 JSR PC ,MOVMSG MOVE CURRENT MESSAGE PACKET TO COMMON. 

1799 012346 ERRDF 3,TOERM,STAERM REPORT NO TSOS RESPONSE. 
012346 104455 TRAP —-CSEROF 
012350 000003 .WORD 3 
012352 004453 “WORD TOERM 
012354 006120 “WORD STAERM 

1800 012356 004737 017156 JSR PC, DROPU :DROP THE UNIT 

1802 012362 501028: 

Ht 012362 000207 EXCRTN: RTS PC RETURN. 

1805 ; THIS SUBROUTINE WAITS FOR ‘ie * TSO05 pet OR DONE BIT TO SET AND ALLOWS THE 

1806 : OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR 

1807 : UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR a ERRORS, 

1808 : LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASAR 

1809 ; INPUTS : 

1810 : OUTPUTS: 

1811 : REGISTERS: R2, R3. 

Hat : CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 

1814 012364 012737 177777 003436 GOWAIT:: MOV #-1,TIME1 zINIT TIME OUT COUNTER. 

1815 012372 50103$: ;REPEAT REPEAT UNTIL INTERRUPT OCCURES: 

1816 012372 BREAK :GO TO THE SUPER TO ALLOW TTY INPUT. 
012372 104422 TRAP CSBRK 

1817 012374 023727 003420 102010 CMP = CMDWRD,, #RWD :1F COMMAND WAS REWIND THEN: 

1818 012402 001014 BNE 0104S 

1819 012404 DELAY 10. :WAIT EXTRA MSECS EACH LOOP. 
012404 012727 000012 MOV” #10. (PCD+ 
012410 000000 . WORD 
012412 013727 002116 . HOV —LSDLY,, (PC)+ 
012416 000 WORD 
012420 005367 177772 BEC = =6(PC) 
012424 001375 BNE .=4 
012426 005367 177756 DEC — =22(PC) 
012432 001367 BNE —_.=20 

1820 012634 501048: 

1821 012434 023727 003420 105010 CMP CMDWRD , #SF F :IF CMDWRD EQ #SFF OR CMDWRD EQ #SFR THEN 

1822 012442 001404 BEQ 105$ 

1823 012444 023727 003420 105410 CMP —-CMDWRD, #SFR 

1824 012452 001014 BNE 50106$ 

1825 012454 501058: 
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GLOBAL 
GLOBAL SUBROUTINES SECTION 


1826 012454 
12454 


Ww 
FUN 
Soooeco SOCOoOCoOOCOoOCOoOoCOoOO 


a et tb tt 


Seegrud 


kk ad td ot a td 2 
RRAA 
S RE 


SO OGNOuUfwWwNO”O 
SoQoooooooooo0oo 


eed et en st es ss 


2 oe 
REFERS 
AMNGCLNS 


wv 


1857 012624 


par Per er Par Per Par 
$3 
& 


012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
105737 
001003 
016502 
000406 
012703 


000417 


000207 


000014 
002116 
177772 
177756 


002212 
003472 


000200 


002524 
2. 


003436 
003436 


003436 


003376 
170614 
012734 


017156 
003472 
012664 


012734 


003463 


015544 
003472 
012664 


170620 





SEQ 0078 

sADD DELAY FOR SPACE TAPE MARK COMMANDS 

MOV #12. ,(PC)+ 

- WORD 

MOV LSDLY,(PC)+ 

- WORD 

DEC -6(PC) 

BNE 274 

DEC =22(PC) 

BNE -720 


:IF INTERRUPTS ARE ENABLED. 
sFETCH INTERRUPT OCCURRED FLAG. 


SET UP A MASK FOR THE DONE BIT. 
sFETCH DONE BIT. 


sUPDATE TIMEOUT COUNTER. 
sREPEAT UNTIL INTERRUPT OR READY OCCURES. 


:I1F TIME OUT HAS OCCURRED: 


sMOVE CURRENT MSG PACKET TO COMMON AREA. 
REPORT NO INTERRUPT. 


TRAP CSERDF 

«WORD 4 
«WORD NOINTM | 
«WORD STAERM 


“DROP THE UNIT. 
:LET R3 := #ENDERF 
3CLEAR ALL ERROR FLAGS | 


sMOVE CURRENT MSG. PACKET TO COMMON AREA. 
2UPDATE THE RECORD COUNT. 

CHECK FOR STATUS ERRORS. 

:IFB WRTYFG EQ #0 THEN 

:LOG BYTES AND ERRORS. 

ET R3_:= #ENDERF 


3 := 
;CLEAR ALL ERROR FLAGS 


PAGE 20-32 

DELAY 12. 
50106$: 

TST 

BNE 50107$ 

MOV INTFLG(RS) ,R2 

BR 50110$ 
50107$: 

MOV #TS.SSR,R3 

COM R 

MOV @TSSR(RS) ,R2 

BIC R3,R2 
50110$: 

DEC TIME1 

TST 

BNE 50111$ 

TST TIME1 

BNE 50103$ 
50111$: 

TST TIME1 

BNE 50112$ 

MOV RECCNT(RS) ,@DATAWT 

DEC @DATAWT 

JSR PC .MOVMSG 

ERRDF 4,NOINTM,STAERM 

JSR PC ,DROPU 

MOV #ENDERF ,R3 

JSR PC, CLRERR 

BR 50113$ 
50112$: 

JSR PC ,MOVMSG 

JSR PC,RECUD 

JSR PC,CHKERR 

TSTB WRTYFG 

BNE 50114$ 

JSR PC,LOG 

MOV MENDERF ,R3 

JSR PC, CLRERR 
50114$: 
501138: 

RTS PC 


RETURN IF DONE. 


aq 
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012702 
005022 


000207 


012737 


104422 


001366 
000207 


017537 
013702 
042702 
010237 

237 
016503 
005002 


020227 


000770 


003460 


177777 003436 


003436 
000200 


003436 


ponte 


000020 


002354 
000002 


002524 


003454 


8 7 
SEQ 0079 
: SUBROUTINE TO CLEAR FLAGS. 
: INPUTS: R3 = LWA TO BE CLEARED + 2. 
: OUTPUTS: 
: REGISTERS: R2 
3 CALLS: 
CLRERR:: MOV  #BGNFLG,R2 ;LET R2 := #BGNFLG 
50115$: ;REPEAT 
CLR + T (R2)+ := #0 
CMP Ro R3 tert R2 EQ R3 
BNE 301 15$ 
RTS 
: SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 
: OUTPUTS: 
: REGISTERS: 
é CALLS: 
WSSR:: 
MOV #-1,TIME1 sINIT TIMEOUT COUNTER. 
50116$: REPEAT UNTIL DEV READY aor TIMEOUT: 
BREAK TBREAK TO THE SUPERVISO 
CSBRK 
DEC TIME1 sUPDATE TIMEOUT COUNTER. 
BIT #TS.SSR,a@TSSR(RS) ;UNTIL #TS.SSR SETIN aTSSR(RS) OR TIME] EQ #0 
BNE 50117$ 
TST TIME1 
BNE 50116$ 
50117$: 
RTS PC ;RETURN. 
: SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
; I es THE CURRENT TERMINATION CLASS CODE. 
: OUTPUTS: 
; REGISTERS: R2, R3. 
: CALLS: 
MOVMSG: :MOV aTSSR(RS), TSSREG yFREEZE THE STATUS REG CONTENTS 
MOV TSSREG,R2- TEXTRACT THE TERMINATION CLASS CODE. 
BIC #TSC.TCC,R2 
MOV R2,CTCC SAND SAVE IT 
ASR cTcC 
MOV MSGPKA(RS)..R3 SADR OF THIS DEVICE'S MSG. 
aiid CLR R2 :CLR COUNTER, 
: cup R2 .AMSGCNT ;WHILE THERE ARE MORE LOCATIONS: 
MOV (R3) +,MSGPKT(R2) ;MOVE MSG TO COMMON AREA. 
ADD #2,R2 [UPDATE COUNTER. 


BR 501208 


ao | 
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GLOBAL SUBROUTINES SECTION SEQ 0080 
1927 013010 50121$: 
1928 013010 013737 002362 003502 MOV MSGPKT+MS.XSO,EOTFLG sMOVE XSTATO TO EOT FLAG. 
1368 013016 000207 RTS PC 
1931 ; SUBROUTINE TO ADJUST THE RECORD COUNT. 
1932 ; INPUTS: 
1933 ; OUTPUTS: 
1934 ; REGISTERS: 
Be b= a 
1937 013020 105737 003465 RECUD:: TSTB RECLOG :IF RECORD HAS NOT BEEN LOGGED: 
1938 013024 001057 BNE 50122$ 
1939 013026 005365 003376 DEC RECCNT(RS) sLET RECCNT(RS) := RECCNT(RS) = #1 
1940 013032 032737 000001 003450 BIT #B1TO,CTCC zIF TAPE MOVED 
1941 013040 001046 BNE 50123 
es 013042 032737 100000 002366 BIT #X2.0PM,MSGPKT+MS.XS2 
1943 013050 001442 BEQ 50123$ 
1944 013052 105237 003465 INCB RECLOG SET RECORD LOGGED, 
1945 013056 023727 003420 102010 CMP CMDWRD , #RWD SIF THIS IS A REWIND C 
1946 013064 001003 BNE 
Hb of 013066 5065 003376 CLR RECCNT(RS) CLEAR RECORD COUNT, 
1949 013072 000431 BR 50125$ 
1950 013074 501248: 
1951 013074 032737 004000 003420 BIT #BRF .C,CMDWRD z1F BRF USED, UPDATE RECORD COUNT. 
1952 013102 001425 BEQ 50126 
1953 013104 032737 000400 003420 BIT #MOD.CO,CMDWRD :I1F A FORWARD CMD: 
1954 013112 001007 BNE 0127 
1955 013114 032737 000400 003424 BIT #MOD.CO,PCMDWD :1F PREV CMD WAS A FWD ALSO: 
1956 013122 001002 BNE 50130$ 
Hh elf 013124 005265 003376 INC RECCNT(RS) 2 INCREMENT RECORD COUNT. 
1959 013130 50130$: 
1960 :IF REVERSE CMD: 
1961 013130 000412 BR 50131$ 
1962 013132 501278: 
1963 013132 032737 000400 003424 BIT #MOD.CO,PCMDWD 2I1F PREVIOUS CMD WAS A REV ALSO: 
1964 013140 001406 BEQ 1 
1965 013142 032765 000002 003502 BIT #X0.BOT ,EOTFLG(R5) sWHEN NOT AT BOT THEN 
1966 013150 001002 BNE 50133$ 
Hs 14 013152 005365 003376 DEC RECCNT(RS) z:DECREMENT RECORD COUNT. 
1969 013156 50133$: 
1970 
17) 013156 50132$: 
1973 013156 50131$: 
1974 
1975 
ba 013156 50126$: 
oe 013156 50125$: 
1980 013156 50123$: 
44 013156 016577 003376 170222 MOV RECCNT(RS) ,@DATAWT LET @DATAWT := RECCNT(RS) 


1983 013164 501228: 
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12ee 013164 060207 


985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 013166 
1997 013174 
1998 013176 
1999 013204 
2000 013206 
2001 013212 
2002 013214 
2003 
2004 013220 
2005 
2006 013220 
2007 013220 
2008 013226 
2009 013230 
2010 013236 
2011 013240 
2012 013240 
2013 013246 
2014 013250 
2015 


2020 013262 


2022 013262 
2023 013264 
2924 013264 
2025 
2026 015270 
2027 013270 
2028 013272 
029 


2 
2030 013276 
2031 Att 


2037 013320 
2038 013324 

2039 013330 
2040 013332 








100000 
003450 
003471 
003336 


004000 
040000 


100000 
000005 


000004 


003450 


013372 


004000 
002360 
003515 
003516 


003454 
000002 


003454 
003454 


002366 


003420 
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CHKERR:: 


50136$: 


50135$: 


50137$: 


50141$: 


50142$: 


50140$: 


501438: 


50134$: 


50147$: 


PAGE 20-35 


» | 


Qa 


SEQ 0081 
RTS PC sRETURN. 


THIS IS THE ERROR CHECK SUBROUTINE. o star INTERRUPT THIS 
SUBROUTINE IS CALLED TO CHECK THE TSOS STATUS. 

IF SPECIAL COND IS SET in iy Ay TCC HANDLING SUBROUTINE IS ENTERED. 
IF THE RFC IS NON ZERO F COMMAND REQUIRING A 6PCR, 

INPUTS ERROR RFC IS REPORTED. 


UTPUTS 
REGISTERS: R2. 

CALLS: Recon tcc?. 

BIT  #TS.SC,TSSREG z1F SPECIAL COND STATUS IS SET THEN: 
BEQ 50134$ 

CMP CTCC,#2 z1f TCC IS NOT 2 THEN: 

BEQ 50135$ 

TSTB —«ERRREC z1F NOT IN ERROR RECOVERY: 

BNE 50136$ 

INC SCCNT (RS) ZINC SC COUNTER. 

BIT #TS.NXM, TSSREG ZWHEN NON-EXISTANT MEMO 

BNE 50137$ 

BIT #TS.UPE,TSSREG 

BEQ 50140$ 

BIT #X2.0PM,MSGPKT+MS.XS2 yAND TAPE NOT MOVED 

BNE 50141$ 

MOV #5,R2 :SET TCCS INDEX 

BR 50142$ 

MOV #4,R2 ;TAPE MOVED, SET TCC4 INDEX 

BR 50143$ 

MOV CTCC,R2 3SET DETECTED TCC INDEX 
ASL R2 ZCURRENT TCC X 2. 

JSR PC ,aTCCRA(R2) 7G0 TO THE TCC HANDLING SUBROUTINE. 
BR 50144$ 

BIT #BRF .C,CMDWRD ;IF BRF IS USED IN THIS CMD THEN: 
BEQ 50145$ 

TST MSGPKT+MS..RFC yIF THERE IS AN RFC THEN: 

BEQ 50146$ 

TSTB RANDOM ;1FB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 
BEQ 50147$ 

TSTB VFYFLG 

BEQ 50150$ 


GLOBAL AREAS 
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046 
2047 013354 
2049 013354 
2051 013354 
cher 013354 
2055 013354 
2056 013354 


2057 013360 
tad 013362 


2060 013370 
2061 013370 
2062 
2063 

2064 

2065 013372 
2066 013374 
2067 013376 
2068 013400 
2069 013402 
2070 01 
2071 013406 
2072 013410 
2073 
2074 

2075 
2076 
2077 
2078 
2079 
2080 

08 
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105737 
0010 
005265 


105737 
001403 
013737 


000207 


005265 


003521 
003356 


003467 
003422 002330 


003356 


50151$: 
50150$: 
50146$: 
50145$: 
50144$: 


50152$: 


TCCRA: 


TCCO:: 


7 
PAGE 20-36 
SEQ 0082 
z1F NOT IN RANDOM OR IF CMD IS WTV: 
ily IF RFC ERROR REPORTS ARE ALLOWED: 
INC HRDCNT (RS) UPDATE HARD ERROR COUNT 
ERRHRD 13,RFCERM,STAERM REPORT RFC ERROR wi 
TRAP CSERHRD 
WORD 13 
«WORD RFCERM 
«WORD STAERM 
co Bere :IF A READ/WRITE ERROR HAS OCCURRED THEN: 
MOV CMDSAV , CMDPKT RESTORE CMD PACKET AFTER ERROR RECOV. 
RTS PC sRETURN. 
ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 
TCCO 
TCC1 
TCC2 
TCC3 
TCC4 
TCC5S 
TCC6 
TCC7 
SUBROUTINE TO HANDLE TERMINATION CLASS COD F Pi 
COND IT ion Ron E 0, UNDEFINED SPECIAL 
pat £ 
OUTPUTS: 
anne 
INC HRDCNT (RS) UPDATE HARD ERROR COUNT. 
ERRHRD 5,SCERM,STAERM REPORT SPECIAL senate” ERROR. 
TRAP CSERHRD 
RD 5 
WORD SCERM 
«WORD STAERM 


RTS PC RETURN. 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION C T 
THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
Toure: GOING OFFLINE OR COMING ONLINE. 


aa | 


fF 7 
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2090 : OUTPUTS: 

2091 3 REGISTERS: R2,R4 

$098 $ CALLS: DROPU 

2094 013430 TCC1:: ERRDF 6,ATTNM,STAERM sREPORT ATTENTION-UNIT OFF LINE. 
013430 104455 TRAP CSERDF 
013432 000006 «WORD 6 
013434 004603 «WORD ATTNM 
013436 006120 -WORD STAERM 

2095 013440 004737 017156 JSR PC ,DROPU ;DROP THE UNIT. 

soe 013444 000207 RTS PC RETURN. 

2098 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

2099 3 A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

io : iw # PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 

2102 ; OUTPUTS: 

2103 3 ae 

S108 , se 

2106 013446 032737 000002 002362 TCC2:: BIT #X0.BOT .MSGPKT+MS.XxSO 

2107 013454 001404 BEQ 50153$ 

2108 013456 105737 003514 TSTB EXPBOT 

2109 013462 001401 BEQ 50153$ 

2110 3IF AT BOT AND BOT IS EXPECTED: 

suit 013464 000433 BR TC2RTN :RETURN=TCC2 CAUSED BY EXPECTED BOT. 

2113 013466 50153$: 

2114 013466 032737 170002 002362 BIT #X0.RLS!XO.RLL!X0. TMK! XO.LET!X0.B0T .MSGPKT+MS.XxSO 

$ii2 sIF #XO.RLS!XO.RLL!X0.TMK!XO.LET!XO.BOT SETIN MSGPKT+MS.XSO THEN 

2117 013474 001427 BEQ 50154$ 

2118 s1F TCC2 CAUSED BY ANYTHING BUT EOT: 

2119 013476 105737 003515 TSTB RANDOM 7 1FB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 

2120 013502 001403 BEQ 50155$ 

2121 013504 105737 003516 TSTB VFYFLG 

2122 013510 001421 BEQ 50156$ 

2123 013512 50155$: 

2124 ;IF NOT IN RANDOM OR IF CMD IS WTV: 

2125 0135 105737 003521 TSTB IRE cif RFC ERROR REPORTS ARE ALLOWED: 

2126 013516 001016 BNE 50157$ 

2127 013520 105737 003471 TSTB ERRREC sIF WE ARE IN ERROR RECOVERY THEN: 

2128 013524 001403 BEQ 50160$ 

2129 0135 105237 003470 INCB UNREC 3SET UNRECOVERABLE FLAG FOR LOG. 

2130 sELSE - IF NOT IN ERROR RECOVERY: 

2131 013532 000402 BR 50161$ 

2132 013534 50160$: 

Siz 013534 005265 003336 INC SCCNT(RS) ; INCREMENT THE SPEC COND COUNTER. 

2135 013540 50161$: 

2136 013540 005265 003356 INC HRDCNT (RS) UPDATE HARD ERROR COUNT. 

2137 013544 ERRHRD 7,TSAM,STAERM sREPORT TAPE STATUS ALERT. 
013544 104456 TRAP CSERHRD 
013546 000007 -WORD 7 
Ol tees 004705 WORD TSAM 


3552 006120 «WORD STAERM 





oa | 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 











2139 013554 


MPO NMPPONTY 
ers 
MMMM 
OUikwWwn—o 


013556 
013556 


013 
013562 
01 


013 
013572 


B83 


KARAVLS ISVRARANASSREISALATSSSSSY 
Soooooooc“eooo 
28 SI 
Sssoscos 


ak aa ak ak ad ad td ad a ad at ot od = = os 


POPIPINININININGPINININININININNIPONoNoNgNoPoNoNonofofonony 


MMM 


N 
= 
co 
N 


So 
Nm 


003426 000002 


NNNONUS 


on—~N 


MACRO M1113 25-MAY~82 09:51 


501578: 
50156$: 
50154$: 
TC2RTN: 


TCC3:: 


TCC4:: 


PAGE 20-38 


SEQ 0084 


RTS PC sRETURN. 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 
THE SPECIFIED FUNCTION WAS NOT rep BITS OF INTEREST ARE 
INPUTS: L. VCK, BOT, ILC, WLE, ILA, AND NBA. 


OUTPUTS: 

REGISTERS: R2,R4 
CALLS: DROPU 
ERRDF 8,FUNRM,STAERM 


REPORT FUNCTION REJECT. 
TRAP CSERDF 
WORD 8 


«WORD FUNRM 
«WORD STAERM 
JSR PC ,DROPU DROP THE UNIT. 
RTS PC sRETURN. 
SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, ities ERROR. 
TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. Te aetay coma IS “To LOG THE 


2 WRITE-ERROR=RECOVERY ALGORITHMS CAN BE SELECTED: 

THE FIRST ONE, VIA BADTSW eat ne: DETECT BAD SPOTS ON TAPE. 
IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 

OR 20 BAD SPOTS HAVE BEEN L OGGED- ON REACHING 20 BAD 

it heeete’ A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 


THE scone ALGORITHM ISSUES THE TSOS WRITE RETRY COMMAND 
UP_ TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 
feos ve NEXT RECORD ON RECOVERY. 


OUTPUTS: 

REGISTERS: R2,R4. 

CALCS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 

CMP ces #2 :I1F CMDLG EQ #2 ANDB BADTSW NE #0 THEN 
BNE 50162$ 

Bea’ «$0165 

TST erneee 3 1FB ERRREC EQ #0 ANDB ERCVER NE #0 THEN 


BNE 5 
TSTB ERCVER 


BEQ 50163$ 
ERRSOFT 9,RERM,STAERM  ; 
TRAP CSERSOFT 


«WORD RERM 
«WORD STAERM 
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GLOBAL AREAS MACRO M1113 25-MAY-82 09:51 PAGE 20-39 | GI 
| GLOBAL SUBROUTINES SECTION SEQ 0085 Gl 
| 2188 013636 50163$: 
189 013636 105737 002213 TST IREC :1FB IREC EQ #0 THEN 
2190 013642 001102 50164$ 
2191 013644 10337 003471 INCB ERRREC  ;RETRY FLAG FOR EXCUTE SUBR: DON'T UPDATE REC CN 
219¢ 013650 105237 003464 INCB WRTYER :REWRITE ERROR FLAG FOR WRTY SUBR 
2193 013654 105737 003463 TSTB WRTIYFG | :FIRST RETRY ON THIS RECORD: SUBSEQUENT 
2194 013660 0010 50165$ 
2195 RETRIES WITH re¢4 ERRORS BY-PASS THIS SECTION 
2196 013662 013737 420 015064 MOV CMDURD UT YURD SSAVE WRITE COMMAND PACKET 
2197 013670 013737 002330 015062 MOV CMDPKT WTYCMD 
2198 013676 013737 002336 015066 MOV ERDPKTSCP, CNT, WTYRE 
2199 013704 105237 003467 INCB = RWERR LOG SUBR FLAG: COUNT WRT ERRORS 
2200 013710 105237 003463 INCB  —- WRTYFG SRETRY IN PROGRESS FLAG 
2202 013714 50166$: yREPEAT 
2203 013714 005265 003316 INC WRTYCT(RS) ZCOUNT GLOBAL WRITE RETRIES 
013720 005037 003460 R RETRYC [CLEAR # OF RETRIES PER RECORD 
2205 013724 105037 003462 CLRB RPTCNT sCLEAR # OF REPEATS 
013730 004737 014614 JSR PC ,WRTY [CALL WRITE RETRY 
2207 013734 105737 003464 TSTB WRTYER sREPEAT RETRIES ON SAME RECORD 
2208 013740 001404 BEQ 50167$ 
2209 013742 027727 167544 000050 CMP aBTPT, #40. 
2210 013750 103761 BLO 50166$ 
2211 013752 50167$: 
1 ZUNTIL RECOVERED OR 20 BAD SPOTS 
2213 013752 027727 167534 000050 CMP aBTPT,#40. [WHEN 20 BAD SPOTS LOGGED 
2214 013760 103423 0 501708 
2215 013762 PRINTB #BTMSG2 :PRINT BAD TAPE OVERFLOW MSG 
013762 012746 015155 MOV #BTMSG2,-(SP) 
3766 012746 000001 MOV #1,-(SP) 
013772 010600 MOV SP;RO 
013774 104414 TRAP  C$PNTB 
013776 0627 04 ADD #4,SP 
2216 014002 004737 015274 JSR PC ,BORERS ZERASE BAD RECORD 
2217 014006 005365 003376 DEC RECCNT (RS) 
2218 014012 004737 017156 JSR PC, DROPU :DROP UNIT 
2219 014016 005065 003376 CLR RECCNT(RS) 
2220 014022 012775 002350 002514 MOV #RWCPK, aTSDB(RS) ;REWIND UNIT 
2222 014030 50170$: 
2223 014030 105037 003463 CLRB ss WRTYFG ;RETRY COMPLETE FLAG 
2224 014034 105237 003531 INCB  - MISCFG [D0 NOT HALT ON THIS CMD FLG 
$552 014040 013737 015064 003424 MOV WTYWRD ,PCMDWD sRESTORE ORIGINAL WRT CMD AFTER RECOVERY 
3207 014046 50165$: 
2229 014046 000402 BR 50171$ 
2230 014050 50164$: 
2231 014050 105237 003470 INCB —sUNREC ;LET UNREC :B= UNREC + #1; 
2233 014054 50171: 
2235 014054 000454 BR 50172$ 
2236 014056 501628: 
2237 014056 004737 014466 JSR PC,RTLE :CHECK FOR RETRY LIMIT EXCEEDED. 
2238 014 023727 003426 000002 CMP CMOLG #2 :1F READ CMD THEN: 
2239 014070 003411 BLE 50173$ 








‘enemas 


| GLOBAL AREAS MACRO M1113 25-MAY-82 09:51 PAGE 20-40 
| GLOBAL SUBROUTINES SECTION SEQ 0086 
2240 014072 912702 000020 MOV —- #RRECL,R2 :R2=READ RETRY COUNT LIMIT / 2 
41 014076 00620 ASR R2 
gehe 014100 025702 003460 CMP se RETRYC,R2 z1F RETRY COUNT IS MORE THAN HALF LIMIT: 
43 014104 00240 BLT 50174 
gu 014106 052737 020000 002330 BIS  #OPP.C,CMDPKT ;SET OPPOSITE BIT FOR RETRY2. 
| 246 014114 501748: 
2248 014114 501738: 
2249 014114 005737 003460 TST —-RETRYC sIF THIS IS THE ORIGINAL ERROR THEN: 
2250 014120 001007 BNE  $0175$ 
2251 014122 105737 002207 TSTB —- ERCVER 
2252 014126 001404 BEQ == 50175$ 
2253 014130 ERRSOFT 9,RERM,STAERM  ;REPORT RECOVERABLE ERROR 
014130 104457 TRAP CSERSOFT 
014132 000011 WORD 9 
014134 005017 <WORD  RERM 
014136 006120 -WORD _ STAERM 
2254 :PROVIDED OPERATOR HAS ENABLED THE REPORT 
2255 014140 50175$: 
2256 014140 005237 003460 INC —-RETRYC :UPDATE RETRY COUNT. 
2257 014144 052737 001000 002330 BIS  #MOD.C1,CMDPKT SET RETRY BIT IN CMD PACKET. 
$558 olais2 105737 002215 TSTB = IREC 3IF ERROR RECOVERY ENABLED: 
2259 014156 001011 BNE 501768 
2260 014160 105237 003471 INCB  —- ERRREC ;SET ERROR RECOVERY FLAG. 
2261 014164 012602 MOV = (SP) +, R2 POP 2 RTN ADRS FROM STACK. 
2262 014166 012602 MOV = (SP) + R2 
2263 014170 0 012054 JSR PC EXCUTE :GO EXECUTE THE RETRY COMMAND. 
2264 014174 000137 012364 JMP = GOWAIT GO WAIT FOR INTERRUPT + CHECK STATUS. 
ZELSE IF ERROR RECOVERY IS NOT ENABLED: 
2266 014200 000402 BR 50177$ 
2267 014202 501768: 
2268 014202 105237 003470 INCB  —_— UNREC ;SET UNRECOVERABLE ERROR FLAG. 
2270 014206 5017S: 
2271 
2272 014206 50172: 
2273 014206 000207 RTS PC ;RETURN 
2275 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOERABLE ERROR. 
2276 ; TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
2277 ; ERROR AND RE-ISSUE THE ORIGINAL COMMAND. 
2278 ; INPUTS: 
2279 ; OUTPUTS: 
2280 ; REGISTERS: R2,R4. 
2281 ; CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 
2283 014210 004737 014466 TCCS:: JSR PC, RTLE :CHECK FOR RETRY LIMIT EXCEEDED 
2284 014214 005737 003460 TST —-RETRYC 3IF THIS IS THE ORIGINAL ERROR THEN: 
2285 014220 001004 BNE 502008 
2286 014222 ERRSOFT 10,RERM,STAERM ;REPORT RECOVERABLE ERROR. 
014222 104457 TRAP CSERSOFT 
014224 000012 -WORD 10 
014226 005017 “WORD RERM 
014230 006120 -WORD  STAERM 
2287 014232 502008: 
2288 014232 005237 003460 INC —RETRYC SUPDATE RETRY COUNTER. 
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105737 
00 


000402 
105237 


000207 


033737 
001016 


5737 
1404 
105237 
105237 


104455 
000013 


002213 


000010 
003426 


003467 
003470 


017156 


014466 
003460 


167124 


002370 


50201$: 


50202$: 


TCC6:: 


50204$: 


502038: 


50206$: 


J 7 


PAGE 20-41 
SEQ 0087 
TSTB URee 3 IF ERROR RECOVERY IS ENABLED: 
BNE 50201$ 
INCB coccat sSET ERROR RECOVERY FLAG. 
INC RECCNT(RS) UPDATE REC COUNT 


MOV RECCNT(RSD, @DATAWT 
MOV ie )+,R2 


D INSERT IT INTO WRT BFR 
:POP 2 rin. ADRS FROM STACK. 


MOV (SP)+,R2 

JSR PC,EXCUTE GO RE-ISSUE THE COMMAND. 

JMP GOWAIT 3GO WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE IF ERROR RECOVERY IS NOT ENABLED: 

BR 50202$ 

INCB UNREC 3SET UNRECOVERABLE ERROR FLAG. 

RTS PC sRETURN. 


SUBROUTINE TO HANDLE Lee Sale CLASS CODE 6, UNRECOVERABLE ERROR. 

TAPE POSITION HAS BEEN LOST. THE 

IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS a, OR 
THIS DIAGNOSTIC WILL REWIND AND RETRY THE 

COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 

INPUTS: FROM THE TEST SEQUENCE. 


OUTPUTS: 

REGISTERS: R2, R4 

CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DROPU 

BIT X3.DCK ,MSGPKT+MS.XS3;1F X3.DCK NOTSETIN MSGPKT+MS.XS3 THEN 
BN 50203$ 


zIF THERE IS NO DENSITY CHECK THEN: 


TST CMDLG :I1F CMD IS A READ OR WRITE THEN: 


BEQ 50204$ 

INCB RWERR SET RD/WR ERROR FLAG, 

INCB UNREC SET UNRECOVERABLE ERROR FLAG. 

ERRDF 11,URERM,STAERM ;REPORT UNRECOVERABLE ERROR. 
TRAP CSERDF 
-WORD 11 
WORD URERM 
eWORD STAERM 

JSR PC ,DROPU REPORT ERROR + DROP UNIT. 

sELSE-IF THERE IS DENSITY CHECK: 
BR 50205$ 
JSR PC,RTLE CHECK FOR RETRY LIMIT EXCEEDED. 


TST RETRYC 


zIF THIS IS THE ORIGINAL ERROR THEN: 
BNE 50206$ 
ERRSOFT 11,URERM,STAERM 


REPORT DENSITY CHECK ERROR 
TRAP CSERSOFT 
-WORD 11 
WORD  URERM 
-WORD STAERM 
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SUBROUTINES SECTION 


000402 
105237 


000207 


003460 
003521 


003470 


017156 


003426 


017156 


002514 


50207$: 


50210$: 
50205$: 


TCC?:: 


RTLE:: 





7s | A 


2 


SEQ 0088 Gl 

INC RETRYC sUPDATE RETRY COUNT 
TST6 RE IF ERROR RECOVERY IS ENABLED THEN: 
BNE 50 2078 
INCB ERRREC 3SET wr RECOVERY FLAG, 
MOV #RWCPK ,@TSDB(RS) 2 ISSUE A REWIND C 
JSR PC ,WSSR WAIT FOR SUBSYSTEM READY, 
MOV (SP)+,R2 ;POP’2 RTN ADRS FROM STACK. 
MOV (SP)+,R2 
JSR PC, EXCUTE REISSUE THE COMMAND, 
JMP GOWAIT ;WAIT FOR INTERRUPT 

;ELSE-IF ERR REC DISABLED: 
BR 502108 
INCB UNREC 3SET UNRECOVERABLE ERROR FLAG. 
RTS PC 2RETURN 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, Soars SUBSYSTEM 
ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 
COMMANDS OR OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 
REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 
INPUTS: INFORMATION ON THE TYPE OF FATAL ERROR. 


PUTS: 

REGISTERS: R2, R4 

CALLS: 

ERRDF 12,FATSM,STAERM sREPORT FATAL SUBSYSTEM ERROR. 
TRAP CSERDF 
WORD 12 
«WORD FATSM 
«WORD STAERM 

JSR PC ,DROPU DROP THE UNIT. 

RTS PC sRETURN. 


SUBROUTINE TO CHECK FOR RETRY LIMIT ot ty ge Ps aa ERROR MESSAGE 


IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A 
INPUT fi 
OUTPUTS 
REGISTERS: R2, R4. 
CALLS: DROPU 
TST CMDLG :IF CMD IS NOT A READ OR WRITE THEN: 
BNE 502118 
ERRDF 11,URERM,STAERM ;REPORT UNRECOVERABLE ERROR. 
AP CSERDF 
«WORD 11 
—_ URERM 
STAERM 
JSR PC ,DROPU :DROP THE UNIT. 
MOV (SP)+*,R2 ;POP RTN ADRS FROM STACK. 
BR RTLRIN AND RETURN, 
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INCB RWERR zSET READ/WRITE ERROR FLAG. 

ENE gots #2 31F CMD IS A WRT OR WIM: 
CMP RETRYC,MWRECL ;IF RETRY COUNT HAS — LIMIT: 
BNE 502138 


INCB UNREC 3SET UNRECOVERABLE FLAG 


ERRDF 14,RLEXM,STAERM :REPORT RETRY LIMIT EXCEEDED. 
CSERDF 
«WORD 14 
«WORD RLEXM 
«WORD STAERM 


JSR PC ,DROPU 
MOV (SP)+,R2 


:DROP THE UNIT. 
POP 2 RTN ADRS FROM STACK. 


sELSE - CMD IS A READ: 
BR 50214$ 
CMP RETRYC,MRRECL ;IF RETRY COUNT HAS REACHED LIMIT: 
BNE 50215$ 


SET UNRECOVERABLE FLAG 


INCB UNREC 

ERRHRD 14,RLEXM,STAERM :REPORT RECOVERABLE ERROR. 
TRAP CSERHRD 
-WORD 14 
«WORD RLEXM 


«WORD STAERM 
MOV (SP)+,R2 :POP 2 RTN ADRS FROM STACK. 


RTS PC ;RETURN 


SUBR TO REWRITE A BAD, BUT RECOVERABLE rot a RECORD. 
REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 

IF ALL 4 REPEATS GOOD, RECORD IS RECOVERED 

AND A RECOVERABLE WRITE ERROR IS LOGGED. 

IF ANY OF 4 REPEATS BAD, ERASE BAD ary LOG SUSPECTED 
BAD road RETRY AGAIN. RETRY 4 TIMES, O 4 REPEATS EACH. 
IF ~ i 4 a A AFTER 4 RETRIES, ERASE: Tr. EXIT WITH 


ERROR F CAG WR TYER SET, PRINTING RETRY F 
THIS ALL hk fs REENTERED 20 TIMES MAX, IE 20 BAD 
SPOTS MAX ARE ALLOWED. 
a a 3 
OUTPUTS: 
REGISTERS: R3,R4 
CALLS: BORERS, REWRT 


sBEGIN RETRY ;REPEAT 


BEGIN REPEAT sREPEAT 


JSR PC ,BORERS ara ay a ~ 
CLRB WRTYER CLEAR WRITE RETRY ERR 
JSR PC ,REWRT REWRITE RECORD ON SAME * spor 


SEQ 0089 


aD 


"7 
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GLOBAL SUBROUTINES SECTION SEu 0090 RI 

2436 014630 105237 003463 INCB— RPTCNT ZCOUNT REPEATS 

2437 014634 123727 003462 000004 CMPB ss RPTCNT #4 [LIMIT: 4 REPEATS OR RECOVERED 

2438 014642 001403 BEQ 50222$ 

2439 014644 105737 003464 TSTB © WRTYER 

2440 014650 001761 BEQ 50221$ 

2441 014652 $0222$: 

hue ZEND REPEAT 

2443 014652 $0220$: 

2444 014652 005237 003460 INC RETRYC sCOUNT RETRIES 

2445 014656 105737 003464 TSTB  WRTYER 

2446 014662 001001 BNE 50223$ 

3447 14664 000457 BR 50216$ ZEXIT RETRY LOOP IF RECOVERED 

2469 014666 50223$: 

2450 014666 105737 002207 TSTB  —sC ERCCVER :1FB ERCVER NE #0 THEN 

2451 014672 001415 BEQ 50225$ 

2452 014674 PRINT #BTMSG1,RETRYC,<B,RPTCNT> :PRINT SUSPECTED BAD SPOT 
014674 005046 CLR -(SP) 
014676 153716 003462 BISB = RPTCNT, (SP) 
014702 013746 003460 MOV RETRYC.=(SP) 

06 012746 015070 MOV #BTMSGi,-(SP) 

014712 012746 00000 MOV #3,-(S 
014716 010600 MOV SP. 
014720 104414 TRAP  C$PNTB 
014722 706 000010 ADD #10,SP 

2453 014726 50225$: 

2454 014726 023727 003460 000001 CMP RETRYC,#1 Z0N FIRST RETRY, LOGG BAD SPOT 

2455 014734 001021 BNE 50 

2456 014736 016537 002616 003512 MOV BTADDR(RS) ,BTPT ;BTPT 1S BOTH THE BAD SPOT COUNTER 

2457 014744 017704 166542 MOV @BTPT RG SAND THE LOGGING INDEX 

2458 014750 062704 000002 ADD #2,R4 

2459 014754 010477 166532 MOV R4.aBTPT . 

2460 014760 020427 000050 CMP R4_#40, TIF R4 LOS #40. THEN 

2461 014764 101005 BHI 50227$ 

2462 014766 013703 003512 MOV BTPT,R3 SSTORE FIRST 20 BAD SPOTS 

2463 014772 060304 ADD R3,R TLET RG := RG +R 

2464 014774 016514 003376 MOV RECCNT(RS),(RG) LET (R4) := RECCNT(RS) 

2466 015000 50227$: 

2468 015000 50226$: 

2469 015000 105237 003525 INCB ERSFLG sERASE FLAG TO ERASE BAD RECORD 

2470 015004 105037 00346 CLRB  —- RWERR SCANCELL ‘'LOG'’ ERROR FLAG ON FAILING RET 

2471 015010 105037 boscee CLRB = RPTCNT [CLEAR REPEAT COUNT FOR NEXT RETRY 

2473 015014 50224$: 

2474 015014 023727 003460 000004 CMP RETRYC #4 SLIMIT: 4 RETRIES 

2475 015022 001274 BNE 50217$ 

2476 SEND RETRY 

2477 015024 50216$: 

2478 015024 105737 003464 TSTB WRTIYER ;IFB WRTYER NE #0 THEN 

2479 015030 001413 BEQ 50230$ 

2480 015032 105737 002207 TSTB ERCVER  ;IFB ERCVER NE #0 THEN 

2481 015036 001410 BEQ 

82 015040 PRINTB #BIMSG3 . :PRINT RETRY FAILED 
015040 012746 015225 MOV #BTMSG3,-(SP) 
012746 000001 MOV #1,-(SP5 





2486 015 

rar t4 015060 
2489 015062 
2490 015064 
2491 015066 
249 
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50231$: 
50230$: 


WTYCMD: 
WTYWRD: 
WTYBRF : 


BTMSG1: 


BIMSG2: 


BIMSG3: 





; 


N 7 | 
/ a 
SEQ 0091 | RI 
MOV SP,RO 
TRAP = C$PNTB 
ADD #4,SP 
RTS PC 
«WORD 0 sSTORAGE FOR WRITE CMD WHILE RETRYING 
«WORD 0 sSTORAGE FOR WRITE CMD WORD WHILE RETRYING 
«WORD 0 sSTORAGE FOR WRITE BPCR WHILE RETRYING 
eASCIZ /%ZASUSPECT BAD SPOT AFTER %D1%A RETRY, %D1%A REPEATZN/ 


eASCIZ /%NZABAD TAPE OVERFLOW: CHANGE TAPE! ZN%N/ “ee 


eASCIZ /ZARETRY FAILED ON BAD SPOT...ERASED! 2N/ 


pment ag tee ee ee g ubnannnaatiaaptet 
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GLOBAL SUBROUTINES SECTION SEQ 0092 
015271 045 116 ©0000 

2496 SEVEN 
5497 
5498 ; SUBR TO BACSPACE ONE RECORD 

| 5499 : IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 
2500 : INPUTS i = DO ERASE 
5501 : OUTPUTS: 
5502 : REGISTERS: 
2503 : CALLS: EXCUTE, GOWAIT, CKHAE 
2505 015274 013737 003420 003424 BORERS::MOV  CMDWRD.PCMDWD SET COMMAND TO SPACE REV 
5506 015302 012737 104410 003490 MOV -#SRR,CMDWRD ss: LET CMDWRD := #SRR 
5507 015310 013737 003420 002330 MOV CMDWRD,CMDPKT © :LET CMDPKT := CMDWRD CLR.BY #ORF.C  ; 
5508 015316 042737 004000 009330 BIC  #BRF.C“CMDPKT 
5509 015324 013737 002330 003422 MOV CMDPKTCMDSAVs: LET CMDSAV := CMDPK 
5510 015382 012737 000001 002332 MOV —s#1,. CMDPKT#CP. ADL’ LET CMDPKTACP. ADL i= #1 : 
3511 015340 005037 003426 CLR  CMOLG  ;LET CMDLG := #0 ; 
5512 015344 004737 011064 JSR —- PC, CMDAC ; 
5513 015350 004737 012054 JSR PC“EXCUTE : 
5514 015354 004737 019364 SSRs PCCGOWAIT : 
5515 015360 004737 017456 SSR «PC; CKHAE : 
5516 015364 105737 003525 TSTBCEERSFLG :WHEN ERASE FLAG IS SET. DO ERASE 
5517 015370 001426 BEQ  §0232$ 
5518 015372 013737 003420 003424 MOV CMDWRD,PCMDWD Ss; LET PCMDWD := CMDWRD : 
5519 015400 012737 100411 003490 MOV —s HERS. CMDWRD “LET CMDWRD := #ERS 
5520 015406 013737 003420 002330 MOV  CMDWRD,CMDPKT =»: LET CMDPKT := CMDWRD ; 
5551 015414 013737 002330 003422 MOV  CMDPKT<CMDSAV LET CMDSAV := CMDPKT ; 
5552 015422 004737 011064 JSR PC. CMDAC ; 
5553 015496 004737 012054 JSR PC“EXCUTE 
5554 015482 004737 012364 JSR PC“GOWAIT 
5555 015436 004737 017456 SSR «PC CCKHAE 
2526 015442 105037 003525 CLRB —«ERSFLG SLET ERSFLG :B= #0 
5558 015446 502328: 
2529 015446 000207 RTS PC 
2531 ; SUBR TO REWRITE A BADLY WRITTEN RECORD 
2533 015450 013737 003420 003424 REWRT:: MOV CMDWRD, PCMDwD RESTORE WRITE COMMAND PACKET 
5534 015456 013737 015064 003490 MOV - WTYWRD{CMDWRD LET CMDWRD := WTYWRD : 
5535 015464 013737 015062 002330 MOVs WTYCMD;CMDPKT ©: LET CMDPKT := WTYCMD 
5536 015472 013737 002330 003422 MOV CMDPKT.CMDSAV —:LET CMDSAV := CMDPKT : 
5537 015500 013737 003406 002332 MOV —«dDATAWT{CMDPKT*CP.ADL LET CMDPKT#CP.ADL := DATAWT 
5538 015506 013737 015066 009336 MOVs WIYBRF<CMDPKT*CP.CNT  :LET CMDPKT#CP.CNT := WIYBREF 
5539 015514 012737 000002 003426 MOV «#2, CMDLG ZLET CMDLG := #2 : 
5540 015522 004737 011064 JSR PCCCMDAC 
2541 015526 004737 012054 JSR —«PCLEXCUTE :RE-WRITE RECORD 
2542 015532 004737 012564 JSR PCCGOWAIT : 
5543 015536 004737 017456 SSR «PC ;CKHAE : 
2544 015542 000207 RTS PE 
5546 ; SUBROUTINE TO LOG BYTES READ/WRITTEN. 
5547 : ALSO UPDATES READ/WRITE ERROR COUNTERS. 
5548 : INPUTS: 
5549 : OUTPUTS: 
5550 : REGISTERS: R2, R3. R4. 
5551 ; CALLS: 
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15632 
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2594 0157 
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003466 
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003426 
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000002 
016030 


6 
002360 
002360 


003416 
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TSTB RLO 

BNE 0233$ 

INCB ERLOG 

MOV CMDLG,R4 

TST 

BEQ 50234$ 

SUB #2,R4 

MOV R5,R2 

ADD BINC(R4) ,R2 


#CNTBGN,R2 
ADD BRFCNT, ¢ 


50235$: 


010203 
062703 000010 


50236$: 


021227 001747 


001750 
005213 


000771 


BHI 
SUB MSGPKT#MS RFC, (R2) 
MOV R2,R3 
ADD #10,R3 


(R2) ,#999. 
50237$ 
SUB #1000. , (R2) 


50237$: 


010302 
062702 


021327 


000010 
001747 
001750 


50240: 


005212 
000771 


010203 
062703 


021227 


50241$: 


000010 
001747 
001750 


50242$: 


005213 
000771 


50243$: 


105737 003467 


016036 
002766 
003470 


000010 
005212 


NT, (R2) 
MSGPKT+MS.RFC,BRF CNT 


= 7 


SEQ 0093 





3IF DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 
sSET LOG DONE FLAG. 
ZGET CURRENT CMD yg he CODE. 
sIF THERE IS A CODE THEN: 
ADJUST THE CODE FOR eae — 
3R2 = ADR OF BYTE COUNT L 
sADD BRF TO LSwW. 
z1F THE RFC IS LOWER OR THE SAME AS BRF THEN 


SUBTRACT RFC FROM EXPECTED BRF. 


zR3 = ADR OF 2ND WORD. 


sWHILE (R2) GT #999. DO 


UPDATE BYTE COUNT 


INC (R3) ZLET (R3) := (R3) + #1 Z2ND WORD. 

BR 50236$ 

mov R3 R2 SLET R2 := R3 + #10 zR2 = ADR OF 3RD WORD. 
sWHILE (R3) GT #999. DO 

CMP (R3) #999, 

BLE 5 : 

SUB #1000. , (R3) ZUPDATE BYTE COUNT 

INC (R2) ZLET’ (R2) := (R2) + #1 23RD WORD. 

BR 50240$ 

mov R2,R3 :LET R3 := R2 + #10 yR3 = ADR OF 4TH WORD. 
sWHILE (R2) GT #999. DO 

CMP Re) #999. 

BLE 43$ 

SUB #1000..(R2) UPDATE BYTE COUNT 

INC (R3) (R3) := (R3) + #1 34TH WORD. 

BR 50242$ 

TSTB  —- RWERR zIF R/W ERROR, UPDATE ERROR T. 

BEQ 50244$ = on 

MOV R5,R2 zR2 = ADR OF COUNTER. 

ADD EINC(R4) ,R2 7 

ADD MWRREC,R2 

TSTB —sUINREC z1S THE ERROR UNRECOVERABLE? 

BEQ 50245$ 

ADD #10,R2 :YES, POINT TO NEXT COUNTER. 

INC (R25 [UPDATE THE ERROR COUNTER 
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2 sELSE = IF ERROR IS RECOVERABLE: 

2610 015754 000424 BR 50246$ 

2611 015756 50245$: 

sole 015756 005212 INC (R2) sUPDATE THE ERROR COUNTER 

2613 015760 105737 002213 TST8 IREC :IF ERROR RECOVERY IS ENABLED: 

2614 015764 001020 BNE 502478 

2615 015766 105737 003522 TSTB DROPED :IF UNIT HAS NOT BEEN DROPPED: 

2616 015772 001015 BNE 50250$ 

2617 015774 105737 002207 TST8 ERCVER 

2618 016000 001412 BEQ 50250$ 

2619 016002 PRINTB #NURTY1,RETRYC sPRINT # OF RETRIES TO RECOVER 
016002 013746 003460 MOV RETRYC,-(SP) 
016 012746 005422 MOV #NURTY1 ,=(SP) 
016012 012746 000002 MOV #2,-(SP) 
916016 010600 MOV SP,RO 
016020 104414 TRAP CSPNTB 
016022 062706 000006 ADD #6,SP 

2620 PROVIDED PRINT HAS BEEN ENABLED 

2621 016026 50250$: 

2623 016026 50247$: 

2624 

2625 

gece 016026 50246$: 

sess 016026 502448: 

$030 016026 50234$: 

2632 016026 50233$: 

soe? 016026 000207 RTS PC 

2635 : INDEXES TO BYTE COUNTERS. 

2636 016030 000000 BINC: 0 sWRITE. 

2637 016032 000040 40 #READ REV. 

2638 016034 000100 100 READ FWD. 

: INDEXES TO READ/WRITE ERROR COUNTERS. 

2640 016036 000000 EINC: 0 2 WRITE. 

2641 016040 000020 20 READ REV. 

94) 016042 000040 40 READ FWD. 

2644 : IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 

2645 : TRANSFERRED TO THIS SUBROU]INE TO READ REVERSE, CHECK DATA, 

sec? : fue ‘amines CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 

2648 : OUTPUTS: 

2649 ; REGISTERS: 

$030 ; CALLS: VFEXC. 

2652 016044 105737 003516 VFYDAT::TSTB VFYFLG :IF DATA IS TO BE VERIFIED: 

2653 016050 001426 BEQ 50251$ 

2654 016052 013737 003420 003424 MOV CMDWRD , PCMDWD : SAVE THE ene vious COMMAND WORD. 

2655 016060 012737 104401 003420 MOV #RDR, CMDWRD D IS READ REV 

2656 016066 012737 000004 003426 MOV #4, CMDLG SET UP CMD LOGGIN NG INDEX. 

2657 016074 004737 916130 JSR PC, VFEXC GO READ ALL THE RECORDS REV. 

2658 016100 013737 003420 003424 MOV CMDWRD , PCMDWD sSAVE THE PREVIOUS COMMAND WOR 

2659 016106 012737 104001 003420 MOV #RDF , CMDWRD COMMAND IS READ FWD. 
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GLOBAL SUBROUTINES SECTION 
| 2660 016114 012737 000006 003426 MOV —s #6, CMDLG ;SET UP CMD LOGGING INDEX. 

2661 O16122 004737 016150 JSR PC“ VFEXC G0 READ ALL RECORDS FWD. 
5668 016126 502518: 
5664 016196 000207 RTS PC : RETURN. 
5665 
5666 
ue 
2669 s SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 
2670 3 INPUTS: 
2671 3 OUTPUTS: 
2672 ; REGISTERS: R2 
th ; CALLS: CMDAC, FIRSTU, VFISU, NEXTU, CKHAE. 
2675 016130 013737 003420 002330 VFEXC:: MOV CMDWRD, saad | ; COMMAND PACKET = READ REV OR FWD. 
5676 016136 042737 004000 009330 BIC -#BRF.CCMDPKT 
2677 016144 105737 003520 TSTB SWBF sIF BYTES ARE TO BE SWAPPED: 
5678 016150 001403 BEG 0252$ 
2679 016152 052757 010000 002330 BIS | #SWB.C,CMDPKT | ;SET SWAB BIT IN CMD PACKET. 
5681 016160 502528: 
2682 016160 013737 002330 003422 MOV CMDPKT, CMDSAV sSAVE COMMAND PACKET 1ST WORD. 
2683 016166 013737 003410 002332 MOV DATARD, CMDPKT+CP.ADL s SAVE BUFFER START ADDRESS. 
soe 016174 005037 003412 CLR NCNT ;CLEAR NUMBER OF OPERATIONS. 
2 016200 50253$: ;WHILE NCNT LT NCNT? DO sWHILE THERE ARE RECORDS REMAINING: 
5687 016200 023737 003412 003414 (MP UNCNT<NCNT1 
5688 016206 002062 BGE 5025 
2689 016210 004737 011064 JSR PC,CMDAC ;STORE CMD ASCII IN ERROR MSG. 

6 016214 004737 017060 JSR PC,FIRSTU sSET UP FOR FIRST UN 
2691 016220 50255$: sWHILE DEVTBL(RS) NE #END DO * WHILE THERE ARE DEVICES REMAINING: 
5692 016220 026527 002606 177777 CMP DEVTBL(RS) -#END 
5693 016296 001442 BEQ  -50256$ 

94 016230 032737 000400 003420 BIT #MOD.CO,CMDWRD 3IF CMD IS REVERSE THEN: 
5695 016236 001421 BEQ 502578 
5696 016240 032765 000002 003502 BIT #X0.BOT.EOTFLG(RS) sf NOT AT BOT 
5697 016246 001014 BNE 502608 
5698 016950 032765 000001 003502 BIT #X0.EOT,EOTFLG(RS) :BUT IF AT EOT 
5699 016956 001406 BEQ 502618 
2700 016260 105737 003524 TSTB ALLEOT zAND ALL OTHERS AT EOT 
5701 016964 001402 BEQ 50262 
2702 016266 004737 016356 JSR PC, VF ISU ; THEN READ VERIFY 

71F NOT ALL AT EOT, FREEZE UNIT(S) 

$704. 016272 502628: 
2705 :1F NOT AT BOT AND 
5706 016272 000402 BR 502638 
5707 016274 502618: 
sine 016274 004737 016356 JSR PC, VFISU sNOT AT EOT, READ VFY 
2710 016300 502638: 
5712 016300 502608: 
5713 016300 000612 BR 502648 ZELSE IF CMD 1S NOT REVERSE: 
$714 016302 502578: 
5715 016302 032765 000001 003502 BIT _#X0. EOT.EOTFLG(RS) 
5716 016310 001404 BEQ 502658 


SEQ 0095 


oe 7 


pon 
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2717 016312 032737 000001 003420 BIT #CMD.CO,CMDWRD 

| 2718 016320 001002 BNE 50266$ 
2719 016322 50265$: 

y1F NOT AT EOT OR NOT A MOTION CMD THEN: 

2721 016322 004737 016356 JSR PC, VFISU zISSUE CMD, CHECK STATUS AND DATA. 
2723 016326 50266$: 
2726 
2725 016326 50264$: 
3726 016326 004737 017126 JSR PC,NEXTU :GO FIND THE NEXT UNIT. 
2728 016332 000732 BR 50255$ 
2729 016334 50256$: 
2730 016334 004737 017456 JSR PC, CKHAE ZCHECK FOR HALT AFTER EACH CMD. 
2731 016340 005237 003412 INC NCNT SUPDATE THE RECORD COUNT. 
3732 016344 013737 003420 003424 MOV CMDWRD , PCMDWD [SAVE PREVIOUS COMMAND WORD. 
2734 016352 000712 BR 50253$ 
2735 016354 502548: 
2736 016354 000207 RTS PC RETURN. 
2738 ; SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 
2739 : CHECK STATUS, CHECK DATA 
2740 : INPUTS: 
2741 : OUTPUT S: 
2742 : REGISTERS: R2 
g74s : CALLS: EXCUTE, GOWAIT, CKDATA. 
2745 016356 013702 003410 VFISU:: MOV DATARD,R2 yINIT READ BUFFER POINTER. 
2746 016362 062702 000010 | ADD #8.,R 
2747 016366 50267$: ZWHILE R2 NE DATARD DO ZUNTIL 8 BYTES HAVE BEEN SET. 
2748 016366 020237 003410 CMP R2,DATARD 
2749 016372 001403 BEQ 50270$ 
2750 016374 012742 177777 MOV #~-1,-(R2) ZINIT READ BUFFER. 
2752 016400 000772 BR 502678 
2753 016402 50270$: 
2754 016402 004737 012054 JSR PC, EXCUTE 3GO EXECUTE THE COMMAN 
2755 016406 105737 003522 TSTB  DROPED :1F UNIT HAS NOT BEEN DROPPED OWEN: 
2756 016412 001002 BNE 50271$ 
3757 016414 004737 012364 JSR PC, GOWAIT 7GO WAIT FOR DONE BIT. 
2759 016420 50271$: 
2760 016420 105737 003522 TSTB —- DROPED z1F UNIT HAS NOT BEEN DROPPED THEN: 
2761 016424 001006 BNE 502728 
2762 016426 032765 000002 003502 BIT #x0.80T ,EOTFLG(RS) ;WHEN NOT REVERSED INTO BOT, THEN 
2763 016434 001002 BNE 50273 
2764 016436 004737 016444 JSR PC, CKDATA 3G0 VERIFY DATA. 
2766 016442 502738: 
2767 
2768 016442 502728: 
2769 016442 000207 RTS PC 
sone 
2772 ; SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
2773 : AND PRINT ERROR MESSAGE ON MISCOMPARE. 
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2783 016460 
016462 


2784 016470 


2811 016630 


013703 


012746 
012746 
010600 
104414 
062706 
000560 
020337 
101417 
104456 
000021 
004430 
005752 


013746 


003416 
002360 


005337 
000001 


000004 


003416 


002336 
005360 
000002 


000006 


017054 
017054 
017056 
003406 


003410 
003523 


017054 
003520 
000001 


017054 


CKDATA: 


50274$: 


50276$: 


50300$: 
50301$: 


PAGE 20-51 


INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 


:REPEAT 


R2, R3, R4. 
GCMDA 


:MOV BRF CNT ,R3 
SUB MSGPKTSHS. RFC,R3 
TST R 
BNE 50274$ 
ERRHRD 17,WTVERM,DTAERM 
PRINTB #DTAER4 
BR 50275$ 
MP R3,BRFCNT 
BLOS 502768 
ERRHRD 17,WTVERM,DTAERM 
PRINTB #DTAERS,CMDPKT+CP.CNT 
BR 50277$ 


MOV R3,CKDCNT 
CKDCNT 
CLR CKDFF 
R2 


DATAWT ,R3 
MOV DATAR 
T1S 


BEQ 503008 
(R3) 


o 


SEQ 0097 
:COMPUTE REC LENGTH READ 
sWHEN NO DATA RECEIVED 
sPRINT ERROR AND EXIT 
TRAP CSERHRD 
«WORD 17 
-WORD WITVERM 
«WORD DTAERM 


COMPARE ROUTINE 


MOV peer -(SP) 
MOV #1,-(SP5 


WHEN REC READ IS LONGER 


THAN EXPECTED, PRINT 
TRAP 


CSERHRD 
WORD 17 
«WORD WTVERM 

DTAERM 


- WOR 
3AN ERROR MESSAGE 
MOV CMDPKT+CP.CNT,=(SP) 
MOV #OTAERS,-(SP) 
MOV #2,-(SP) 


MOV SP,RO 
TRAP CSPNTB 
ADD #6,SP 


zAND EXIT ROUTINE 


:SAVE VERIFICATION LENGTH = 1. 


CLEAR # OF BYTES IN ERROR COUNTER. 
:INIT BYTE COUNTER 
GET WRITE BUFFER ADDRESS. 


:GET READ BUFFER ADDRESS. 
sWHEN RUNNING TEST1-SUB 12, 


FIRST WORD OF WRT BFR 


3 SWAP 
WHICH CONTAINS THE RECORD COUNT 


CMP R2 once 


BNE 50302 

Seer G 

B 50303$ 

BIT #8.1T00,CKDCNT 





sREPEAT UNTIL ALL DATA IS COMPARED: 
sIF THIS IS THE LAST BYTE THEN: 
:1F BYTE SWAPPING IS ENABLED THEN: 
:IF RECORD LENGTH IS ODD THEN: 


———— 
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2812 016636 
2813 016640 

2814 016642 
2816 016644 


2818 016644 
2819 


2833 016726 
2834 016734 
2835 016736 

016736 


016770 
2836 016774 
837 
2838 016774 
2839 016776 
2840 017000 


017056 


003346 
003356 


017056 
00 


017056 


003440 
003436 
005226 
000004 


000012 


017054 


017054 
017056 


017054 


000010 


003436 


003440 
000013 


H 8 
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SEQ 0098 
BNE 50304$ 
TSTB 3s (3) + ZLAST BYTE WILL BE IN 
TSTB =. (RG) + : THE UPPER BYTE. 
50304$: 
50303$: 
50302$: 
c (R3), (RG) zARE THEY EQUAL. 
BEQ «= 3$ 
TST  CKDFF 21 ST rine THRU? 
BNE 2$ :8 
INC VFYCNT(RS) INC THe VERIFY ERROR COUNTER. 
INC —_HRDCNT(RS) ZINC THE HARD ERROR COUNT. 
ERRHRD 17,WTVERM,DTAERM [REPORT WRITE/VERIFY ERROR. 
TRAP  CSERHRD 
.WORD 17 
-WORD WTVERM 
2$: INC CKDFF:LET CKDFF := CKDFF + #1  ; INCREMENT ‘ OF aves IN ERROR. 
MOVB (R4),TIME1 ZSAVE WAS DATA FOR TYPOUT. 
BIC #177400, TIME1 ZCLEAR GARBAGE. 
MOVE (R3), TIME SAVE SHOULD BE DATA FOR TYPOUT. 
BIC #177400, TIME2 ZCLEAR GARBAGE. 
CMP CKDFE #11. zIF ERROR BYTE COUNT IS LESS THAN 11: 
PRINTX #DTAER2,R2,<B,TIME1>,<8,TIME2>;PRINT ACTUAL & EXPECTED DATA. ie 
81S8 TIME2, (SP) 
CLR 
8158 TIME. (SP) 
MOV R2,-(SP) 
MOV #DTAER2,=(SP) 
MOV #4,-(SP) 
V SP_R 
WD OSM2SP 
50305$: : 
3$: TSTB  —s-_- (R30 + ZUPDATE WRITE BUFFER ADDRESS. 
TSTB = (RG) + [UPDATE READ BUFFER ADDRESS. 
TSTB 3s (R2)+ [UPDATE BYTE COUN 
CMP R2, CKDCNT [END OF DATA COMPARE “REPEAT LOOP. 
BLE 50301$ 
gga Pea inte Oe BERENS 
: N: 
BEQ 50306$ 
PRINTB #DTAER3,CKDFF,CKDCNT 





:PRINT # OF BYTES IN ERROR. 
MOV CKDCNT ,-(SP) 


ADD #10.SP 
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2848 017052 
2850 017052 
2851 


2852 017052 
2853 017052 


2855 017054 
sooo 017056 


901 
2902 017156 
2903 017162 
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000207 
000000 
000000 


105037 


026527 
001001 


104444 


016537 
000207 


105037 


= 


265 
704 


So 


1 


003522 
002604 
000002 


002604 


002604 


003522 


000002 
002604 


002604 


003366 
002370 


177774 


177777 


002074 


177774 
062074 


50306$: 
50277$: 
50275$: 


CKDCNT: 


CKDFF: 


FIRSTU:: 
50307$: 


50310$: 


50311$: 


NEXTU:: 
50312$: 


DROPU: : 


1 8 
PAGE 20-53 
RTS PC JOTHERWISE, RETURN. 
.WORD 0 :# OF BYTES TO BE VERIFIED -1. 
“WORD 0 :# OF BYTES IN ERROR COUNTER. 
SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 
OUTPUTS: 
REGISTERS: 
CALLS: 
CLRB DROPED :CLR UNIT DROPPED FLAG 


CLR R5 CLR DEVICE POINTER. 


CAP DEVTBL (RS) , ANINUSE ;WHILE DEVICES ARE NOT IN USE: 

ADD #2,R5 sLET RS := RS + #2 sPOINT TO NEXT DEVICE. 
BR 503078 ee 
a Serres (5) SENe zIF ALL UNITS HAVE BEEN DROPPED THEN: 
DOCLN 


:DO CLEAN CODE AND a PASS. 
RAP CSDCLN 


MOV DEVTBL (RS) .LSLUN zSET UNIT # IN “HEADER’’ FOR ERROR REPORT 
RTS PC sRETURN WITH 1ST DEVICE IN RS. 


SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
INPUTS: 


uw: “Ss 
REGISTERS: 
CALLS: 
CLRB DROPED sCLR UNIT DROPPED FLAG 
sREPEAT SREPEAT UNTIL THE NEXT DEVICE IS FOUND. 
ADD #2,R5 sUPDATE DEVICE TABLE POINTER. 
aA OEY TSt (RS) .AMIMUSE SUNTIL DEVTBL(RS) NE #NINUSE 
MOV DEVTBL(RS),LSLUN sSET UNIT # IN ‘HEADER’ FOR ERROR REPORT 
RTS PC RETURN, 


SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 
OUTPUTS: 

REGISTERS: 

CALLS: MOVMSG, PRXST, LOG 


INC FTLCNT(RS) : INCREMENT THE FATAL ERROR COUNT. 
MOV MSGPKT+MS.XS3,R4 ;GET UDIAG ERROR CODE FROM XSTATS. 


SEQ 0099 


= 4 
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GLOBAL SUBROUTINES SECTION SEQ 0100 
2904 017166 042704 000377 BIC #377, 
2905 017172 016503 002544 MOV RSGPEACRS) R3 sADR OF THIS UNIT'S MSG PACKET. 
2906 017176 005002 CLR 2 t= #0 :CLR COUNTER. 
2907 017200 50313$: ; WHILE Re NE msitnt DO jWHILE THERE ARE MORE LOCATIONS: 
2908 017200 020227 000020 CMP R2,AMSGCNT 
2909 017204 001405 BEQ 503148 
2910 017206 012723 177777 MOV #=1, (R3)+ ZINIT THE MSG PACKET WITH ALL 1°S 
e311 017212 062702 000002 ADD #2,R2 :LET R2 := R2 + #2 SUPDATE COUNTER. 
2913 017216 000770 BR 50313$ 
2914 017220 50314$: 
2915 017220 012775 002340 002514 MOV #GSCPK,aTSDB(RS) sINITIATE A GET STATUS COMMAND. 
2916 017226 004737 012700 JSR PC,WSSR “WAIT A WHILE FOR SSR=1 
2917 017232 004737 012734 JSR PC.MOVMSG [MOVE MSG PACKET TO COMMON AREA. 
2918 017236 020427 157400 CMP R4.AX3. RNY TIF WE HAVE A CAPSTAN RUNAWAY THEN: 
2919 017242 001005 BNE 50315 
2920 017244 ERRDF 16, RNYM, STAERM sREPORT CAPSTAN RUNAWAY WITH TACH CNT. 
017244 104455 TRAP CSERDF 
017246 20 «WORD 16 
017250 004753 .WORD RNYM 
017252 006120 -WORD STAERM 
sELSE-IF NOT A RUNNAWAY: 
2922 017254 000402 BR 50316$ 
2923 017256 50315$: 
2924 017256 004737 017370 JSR PC,PRXST ZPRINT EXTENDED STATUS REGISTERS. 
2926 017262 50316$: 
2927 017262 105737 003465 TSTB —- RECLOG yIF THE RECORD HAS BEEN LOGGED THEN: 
2928 017266 001404 BEQ 50317$ 
2929 017270 105237 003522 INCB _——DROPED zSET UNIT DROPPED FLAG. 
2930 017274 004737 015544 JSR PC,LOG ZLOG DATA BYTES + RD/WR ERRORS. 
2932 017300 50317$: 
2933 017300 DORPT ZPRINT PERFORMANCE REPORT 
017300 104424 TRAP  CS$DRPT 
2934 017302 005765 003326 DROPUA: TST PASCNT(RS) Z1F PASCNT(RS) NE #0 THEN 
2935 017306 001402 BEQ 
2936 017310 005365 003326 DEC PASCNT(RS) ZLET PASCNT(RS) := PASCNT(RS) = #1 
2938 017314 50320$: 
2939 017314 013737 003534 017366 MOV TSNP, DROPN ZSAVE # OF UNIT TO BE DROPPED. 
2940 017322 013700 003534 MOV TSNP,RO SRO= LOGICAL DEVICE NUMBER 
2941 017326 popu = RO [DROP THE UNIT 
017326 104451 TRAP C$DODU 
ge sEXEC BGNDU-ENDDU CODE IF IDU = 0 
2944 017330 026527 002604 177774 CMP DEVTBL (RS) , ANINUSE z1F UNIT NOT DROPPED 
2945 017336 001410 BEQ 50321$ 
2946 017340 105737 002213 TSTB = TREC z1F RECOVERY IS ENABLED THEN: 
7 017344 001005 BNE 50322$ 
8 017346 000240 NOP 
2949 017350 000240 NOP 
2950 017352 000240 NOP 
2951 017354 105237 003526 INCB  —s STAFLG ;SET START FLAG TO ENABLE REWIND, 


50322$: 
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2955 017360 50321$: 
2956 017360 105237 003522 DRORTN: INCB DROPED :SET UNIT DROPPED FLAG. 
2957 017364 000207 RTS PC RETURN, 
2959 017366 000000 DROPN: .WORD 0 :# OF UNIT TO BE DROPPED 
$363 : SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
968 : INPUTS: 
296 : OUTPUTS: 
2964 : REGISTERS: 
2965 $ CALLS: 
2966 
2967 017370 PRXST:: PRINTX #GETSTM 
017370 012746 005507 MOV #GETSTM,=(SP) 
017374 012746 000001 MOV #1,-(SP) 
017400 010600 MOV SP.RO 
017402 104415 TRAP CSPNTX 
017404 062706 000004 
2968 017410 PRINTX #STAERS,MSGPKT+MS.XSO,MSGPKT+MS.XS1,MSGPKT+MS. xs 2: ASGPKTORS. sXS3, MSGPKT+MS.xS 
017410 013746 002372 MSGPKT#MS.XS4,<(SP) | 
017414 013746 002370 mov MSGPKT+MS.XS3,=(SP) | 
017420 013746 002366 MOV MSGPKT#MS.XS2.=(SP) 
017424 013746 002364 MOV MSGPKT¢+MS.XS1.-(SP) | 
017430 013746 002362 MOV MSGPKT+#MS.XS0.-(SP) | 
017434 012746 006753 MOV #STAERS, -(SP) 
017440 012746 000006 MOV #6,-(SP 
017444 00 MOV , 
017446 104415 TRAP  CS$PNTX 
017450 062706 000016 ADD #16,SP 
2969 017454 000207 RTS PC 
2971 : SUBROUTINE TO HALT AFTER EACH COMMAND. 
2972 : INPUTS: 
2973 ; OUTPUTS: 
297% ; REGISTERS: R3, R4 
344 : CALLS: 
2977 017456 105737 002206 CKHAE:: TSTB HAE; IFB HAE NE #0 THEN zIF HALT FLAG IS SET: | 
2978 017462 001430 BEQ 50323$ | 
79 017464 105737 003531 TSTB MISCFG  ;IFB MISCFG EQ #0 THEN : | 
2980 017470 001023 BNE 50324$ 
2981 017472 MANUAL :IS MANUAL INTERVENTION ALLOWED? 
17472 104450 TRAP CSMANI 
2982 017474 BNCOMPLETE CKHRTN :BR IF NOT. 
017474 103023 BCC CKHRTN 
2983 017476 013704 003420 MOV CMDWRD ,R4 :LET R4 := CMDWRD s COMMAND WORD. 
2984 017502 004737 011136 JSR PC,GCMDA FETCH ADR OF CMD ASCII.” 
017506 112337 004306 VB (R3)+, HALT [MOVE CMD ASCII 
2986 017512 112337 004307 MOVB  (R3)+. HALTM+1 :LET’ HALTM¢1 iB (R3) 
2987 017516 111337 004310 MOVB = (R3) ,HALTM#2 INTO 
2988 017522 GMANIL HALTM,TIME1,1,YES | :HALT = ealt FOR AN OEPRATOR INPUT. 
61 736¢ soG¢b. ps 100008 
017526 $0846 «WORD TIME1 
BIPe3> SpeséG ‘WORD WALT’ 
017534 000001 “WORD 
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017536 10000$: 

844 017536 10000$: 

$390 017536 000402 BR 50325$ 

2938 017540 50324$: 
o17ec0 105037 003531 CLRB MISCFG sLET MISCFG :B= #0 3 

$39¢ 017544 50325$: 

2997 017544 50323$: ' 

2998 017544 000207 CKHRTN: RTS PC ;RETURN 

2999 -EVEN 

3000 

3001 017546 ENDMGD 

3002 

3003 

3004 -TITLE MISCELLANEOUS SECTIONS 

3005 -SBTTL REPORT CODING SECTION 

3006 

3007 

3008 3++ 

3009 ; THE REPORT CODING SECTION CONTAINS THE 

sro 3 ‘PRINTS’ CALLS THAT GENERATE STATISTICAL REPORTS. 

3012 

3013 017546 BGNRPT 
017546 LSRPT:: 

3014 017546 010537 003452 MOV RS, athe Hb pe Sg DEVICE POINTER. 

3015 017552 004737 017060 JSR PC,FIRSTU FIND THE FIRST UN 

3016 017556 50326$: ;WHILE DEVTBL (RS) NE #END DO “WHILE THERE ARE MORE DEVICES: 

3017 017556 026527 002604 177777 CMP DEVTBL(RS) ,#END 

3018 017564 001562 BEQ h 

3019 017566 PRINTS #RPT1A,DEVTBL(RS) ,PASCNT(RS) ,RECCNT(R35) 
017566 016546 003376 MOV RECCNT(RS) ,-(SP) 
017572 016546 003326 MOV PASCNT(RS) ,-(SP) 
017576 016546 002604 MOV DEVTBL (RS) .-(SP) 
017602 012746 020410 7 MOV #RPTIA,-(SP) 
017606 012746 000004 MOV #4,-(SP) 
017612 010600 MOV SP,RO 
017614 104416 — crewis 
017616 062706 000012 #12,S 

3020 017622 PRINTS #RPT1B,WRBC+30(R5) WRBC+20(RS) WRBC+10(R5 OURBC (RSS 
017622 016546 002626 MOV ove be oh -(SP) 
017626 016546 002636 MOV B6+10(R5) ,=(SP) 
017632 016546 002646 MOV URBE*20(RS) -(SP) 
017636 016546 2656 MOV WRBC+30(R5) ,-(SP) 
017642 012746 020465 MOV #RPT1B,-( 
017646 012746 000005 MOV #5,-(SP) 
017652 010600 MOV SP,RO 
017654 104416 — PS rage 
017656 062706 000014 

3021 01766 PRINTS #RPT1C,.RRBC+30(R5) ,RRBC+20(R5) -RRBC*10R3) “ARB (RS) 
017662 016546 002666 RRBC (RS) ,-(SP) 
017666 016546 002676 Mov RRBC+10(RS) ,-(SP) 
017672 016546 002706 MOV RRBC+20(R5) *=(SP) 
017676 016546 002716 MOV RRBC+30(R5) .=(SP) 
017702 012746 020536 MOV #RPTIC,-(SP5 





Pies i 


> 


Ld 
S MACRO M1113 25-MAY-82 09:51 PAGE 20-57 


MISCELLANEOUS SECTION 
REPORT CODING SECTION SEQ 0103 
17706 012746 000005 MOVs: #5, =( SP) 
017712 010600 MOV : 
017714 104416 TRAP —- CSPNTS 
017716 062706 000014 ADD #14,SP 
3022 17728 PRINTS #RPT1D,RFBC+30(R5) ,RFBC+20(R5) ,RFBC+10(R5) ,RFBC (RS) 
017722 016546 002726 MOV ~—s- RFBC(RS) ,=( SP) 
017726 016546 002736 MOV RFBC+10(R5) ,-(SP) 
017732 016546 002746 - MOV = RFBC+20(R5),=(SP) 
17736 016546 002756 MOV = RFBC+30(R5),-(SP) 
017742 012746 020607 MOV §#RPT1D,=(SP) 
017746 012746 000005 MOV =s-:« #5, =( SP) 
017752 010600 MOV SP,RO 
017754 104416 TRAP —- CS$PNTS | 
017756 062706 000014 ADD =—ss« #14, SP | 
3023 017762 PRINTS #RPT1F ,WRREC(RS) ,RRREC (RS) ,RFREC(RS) 
017762 016546 003026 MoV RFREC(RS) .=(SP) 
17766 016546 003006 MOV = RRREC(R5). (SP) 
017772 016546 002766 MOV = WRREC(R5) . =(SP) 
017776 012746 020713 MOV = #RPT1F ,-(SP) 
020002 012746 00000 MOV = #4, = (SP) 
02 0106 MOV SP,R 
020010 104416 TRAP — CSPNTS 
020012 0627 000012 ADD #12,SP 
3024 920016 PRINTS #RPT1G,WRUNR(R5) ,RRUNR(RS) ,RFUNR(RS) 
020016 016546 003036 MOV —s RFUNR(RS) ,=(SP) 
020022 016546 003016 MOV —- RRUNR(R5) (SP) 
020026 016546 002776 MOV —-« WRUNR(R5) .-(SP) 
020032 012746 020764 MOV § #RPT1G,-(SP) 
020036 012746 000004 MOV = #4, = (SP) 
020042 010600 MOV SP,RO 
020044 104416 TRAP — CSPNTS 
020046 062706 000012 ADD =—s_« #12, SP 
3025 020052 105737 002210 TSTB  BADTSW =; FB BADTSW NE #0 THEN : 


3026 020056 001402 BEQ 50330 
3027 020060 


2 004737 020142 JSR PC,BTRPT :GO PRINT BAD TAPE SPOTS WHEN ENABLED 

3029 020064 50330$: 

3030 020064 PRINTS #RPT1I,SCCNT(RS) ,HRDCNT(RS) ,FTLCNT(RS) ,VFYCNT(RS) 
020064 016546 003346 MOV VF YCNT (RS) ,=(SP) 
020070 016546 003366 MOV FTLCNT(RS) ,~(SP) 
020074 016546 003356 MOV HROCNT (RS) ,~(SP) 
020100 016546 003336 MOV SCCNT(RS) ,=(SP) 
020104 012746 021161 MOV #RPT1I.=(SP) 
020110 012746 000005 MOV #5 ,-(SP) 
020114 010600 MOV SP,RO 
020116 104416 TRAP CSPNTS 
020120 062706 000014 ADD #14,SP 

$031 020124 004737 017126 JSR PC,NEXTU FIND THE NEXT UNIT. 

3033 020130 000612 BR 50326$ 

3034 020132 503278: 

3035 020132 013705 003452 MOV RSSAVE ,R5S sRESTORE CURRENT DEVICE POINTER. 

3036 020136 EXIT RPT 
020136 000167 WORD JSJMP 

? 020140 001130 -WORD 110010-2-. 


303 
3038 


; SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
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| REPORT CODING SECTION SEQ 0104 
3039 : WRITE RETRIES: CUMULATIVE COUNT 
0 ; BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 

3041 : COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 

aoe§ 534943 BIRPT:: PRINTS #RPTIE,WRTYCT(RS) SPRINT GLOBAL WRITE RETRY COUNT 
020142 016546 003316 MOV WRTYCT(RS) ,-(SP) 
020146 012746 021035 MOV #RPTIE, (SP) 
020152 012746 000002 MOV = (SP 
020156 010600 MOV “RO 
020160 104416 TRAP  C$PNTS 
020162 062706 000006 ADD #6,SP 

3044 020166 016537 002616 003512 MOV BTADDR(RS) ,BTPT sBTPT IS BOTH THE BAD TAPE SPOT COUNTER 

3045 020174 017703 163312 MOV aBTPT.R3 SAND THE LOGGING INDEX 

3046 020200 203 ASR R3 

3047 020202 PRINTS #RPT1J,R3 ;PRINT # OF BAD TAPE SPOTS 
020202 010346 MOV R3,-(SP) 
020206 012746 021065 MOV #RPT1J,-(SP) 
020210 012746 000002 MOV #2,-(SP) 
020214 010600 MOV SP,RO 
020216 104416 é TRAP  C$PNTS 
020220 062706 000006 ADD #6,SP 

3048 020224 005703 TST RS sPRINT RECORD # IF BAD SPC’S DETECTED 

3049 020226 001457 BEQ 50331$ 

3050 020230 020327 000024 CMP R3,#20. s1F R3 HI #20. THEN : 

3051 020234 101402 BLOS  50332$ 

3052 020236 012703 000024 MOV #20.,R3 320 BAD SPOTS IS THE LIMIT 

3054 020242 50332$: 

3055 020242 PRINTS #CRLFSP F 
020242 012746 005744 MOV #CRLFSP,-(SP) 
020246 012746 000001 MOV #1,-(SP) 
020252 010600 MOV P’RO 
020254 104416 TRAP C$PNTS 
020256 062706 000004 ADD #4,SP 

3056 020262 013704 003512 MOV BIPT,R4 sLET R4 := BIPT + #2 FETCH A BAD SPOT ID 

3057 020266 062704 000002 ADD #2,R4 

3058 020272 005002 CLR R2 zR2 = PRINT COUNT PER LINE: 10 MAX 

3059 020274 50333$: sREPEAT : 

3060 acne PRINTS #RPTIK, (R4) sPRINT A BAD SPOT ID 
020274 011446 MOV (R4),=(SP) 
020276 012746 021152 MOV #RPTIK,-(SP) 
020302 012746 000002 MOV #2,-(SP) 
020306 010600 MOV SP.RO 
020310 104416 TRAP  CS$PNTS 
020312 062706 000006 ADD #6,SP 

3061 020316 005202 INC R2 LET R2 i= R2 + #1 : COUNT PRINTS 

3062 020320 062704 000002 ADD #2,R4 SLET RG := #2 :NEXT 

3063 020324 020227 000012 CMP R2.#10. TIF ae EQ no. "THEN 

3064 020330 001014 BNE 5033 

3065 020332 PRINTS #CRLFSP :GO TO NEXT PRINT LINE PAST 10 PRINTS 
020332 012746 005744 MOV #CRLFSP.-(SP) 
020336 012746 000001 MOV #1,-(SP5 
020342 010600 MOV SP.RO 
020344 104416 ' TRAP C$PNTS 
020346 062706 000004 ADD #4,SP 

3066 020352 162703 000012 SUB #10. ,R3 :LET R3 := R3 = #10. ;ADJUST BAD SPOT COUNT 

3067 020356 162702 000012 SUB #10. ,R2 TLET R2 := R2 = #10. SADJUST PRINT COUNT 
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3068 020362 50334$: 
| 3070 020362 020203 CMP R2,R3 SUNTIL R2 EQ R3 :LIMIT: # OF BAD SPOTS 
| 3071 020364 001343 BNE 50333$ 
| 3073 020366 50331$: 
| 3074 020366 PRINTS @#CRLF : 
| 020366 012746 005741 MOV #CRLF ,-(SP) 
020372 012746 000001 MOV #1,-(SP) 
020376 010600 MOV SP,RO 
020400 104416 TRAP  C$PNTS 
020402 062706 000004 ADD #4,SP 
3075 020406 000207 RTS PC 
3076 
3077 NLIST 
3078 020410 045 116 045 RPTIA eASCIZ SE NENEAUNIT a ay gt ZD5ZS3XARECORD: ee 
3079 020465 045 101 102 RPTI6: .ASCIZ /%ABYTES WRITTEN %D3%A, ‘ 
020536 045 101 102 RPTIC: .ASCI2Z /RABYTES READ REV %D3%A,%23%A,%232A, 27 35N/ 
3081 020607 045 101 102 RPTID: .ASCII YTES FWD %D3%A A, 132A, %23%A,%232N/ 
3082 020657 045 123 062 SASCIZ FESO TEAR Eee ZANDR eee GARDE AN/ 
3083 020713 045 101 122 RPTIF: .ASCIZ /ZARECOVERABLE ERRORS %D5%S2%D5%S2%DS2N/ 
020764 045 101 125 RPT1G: .ASCIZ /ZAUNRECOVERABLE ERRORS %D5%S2%D5%S2%D52N/ 
3085 021035 045 101 127 RPTIE: .ASCIZ /2AWRITE RETRIES%S8%D52N/ 
3086 021065 045 116 045 RPTIJU eASCIZ /2N wapee4 A BAD SPOTS THIS TAPE PASS PRECEDING RECORD 4:/ 
3087 021152 045 104 065 RPTIK: -ASCIZ 
3088 021161 045 101 123 RPTII eASCII ‘ZASPEC ’ CONDESSEAMARDZSSEAFATALESSEACOMPARE RN’ 
3089 021235 045 123 063 “ASCIZ 4S 320548 34D5%S34D5%SS2D52NEN/ 
3090 “LIST BEX 
3091 SEVEN 
3092 
3093 021272 ENDRPT 
021272 L10010: 
oe 021272 104425 TRAP _— C$RPT 
344 -SBTTL LOAD DEVICE PROTECTION TABLE 
3097 
3098 ‘TABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 
3099 ; THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 
3101 
3102 021274 BGNPROT 
3103 021274 LSPROT:: 
021274 000000 -WORD 0 ;P-TBL OFFSET OF TSDB 
021276 177777 “WORD =1 [P-TBL OFFSET OF MASS Bus UNIT #: 1 = NOT A MASS BUS DE 
saps 177777 ae -1 *P=TBL OFFSET OF DRIVE #: =-1 = NONE, THREE DRIVES PER CONTRO. 


31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 


-SBTTL INITIALIZE SECTION 


: THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
: AT THE BEGINNING OF EACH PASS. 
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021302 BGNINIT 
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DURWN—OOCOWOUR 
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032727 
001421 


105737 
001413 


1 
105037 
005002 


020227 
001405 


000770 


105737 
001406 
012737 
012737 
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LSINIT: 


000003 002330 INIT10: BIT 
BEQ 


000310 
002116 
177772 
177756 


002204 
002204 


000550 


002626 
000002 


002205 
153624 
032561 


000040 


003526 
000006 


177774 
000002 


000001 





003432 
003434 


002604 


002012 


50335$: 


50337$: 


50340$: 
50336$: 


50341$: 


50342$: 
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SEQ 0106 
#8110;B1T1 ,ACMDPKT zIF CMD PACKET IS NOT ON MODULO 4 BOUNDRY: 
ERRSF 1,CMDPKM :PRINT ERROR MSG, 
TRAP CSERSF 
“WORD CMDPKM 
“WORD 0 
DELAY 200. 3GO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV #200. ,(PC)+ 
. WORD 
MOV LSDLY, (PC)+ 
. WORD 
DEC -6(PC) 
BNE 4 
DEC =22(PC) 
BNE .-20 
BR _—sCINIT10 : 
TSTB = CLRFLG zIF CLR COUNTERS FLAG SET: 
BEQ 50336$ 
CLRB CLRFLG zINIT CLR FLAG. 
LR R sLET R2 := #0 
;WHILE R2 NE #CNTLEN DO 
cM R2, 4CNTLEN 
BEQ 50340 
CLR WRBC(R2) :CLR ALL STATISTICAL COUNTERS. 
ADD #2,R2 ILET R2 := RD + #2 
BR 50337$ 
TSTB —- RRANV zIF RESET RANDOM VARIABLE FLAG IS SET THEN: 
BEQ 50341$ 
MOV #RANBC ,RANB ZRESET RANDOM BASE #. 
MOV #RANSC,RANS yRESET RANDOM SAVE LOCATION. 
READEF #EF.START ZREAD START COMMAND EVENT FLAG. 
MOV #EF .START.RO 


TRAP CSREFG 


BNCOMPLE TE INIT15 sBRANCH IF NOT a. INITIS 
N 

INCB STAFLG 3SET START COMMAND FLAG. 

MOV #6,R5 ;LET RS := #6 

;REPEAT ; INITIATE UNIT NUMBER TABLE 

MOV #NINUSE ,DEVTBL(R5) ;BY STORING NOT IN USE IN EACH LOCATION. 

SUB #2,R5 sLET RS := RS = #2 

TST sUNTIL RS EQ #0 


#1,LSUNIT sONLY ONE UNIT ALLOWED 
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104444 
013705 
006305 


162705 


012700 
104447 


103004 
105237 
105237 


005146 
000001 


000004 
000025 
002116 
177772 
177756 
002012 


000002 
002604 
002604 


000034 


003526 
003527 


003536 


003527 


000035 


003526 
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5034$: 


503438: ; 


INIT15: 


INIT16: 


50347$: 
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SEQ 0107 a 
BEQ 5034$ 30K | 
PRINTF #AUDRUN [TELL THE MAN 
MOV #AUDRUN, =(SP) 
MOV #1,-(SP Pp) 
V SP,RO 
* TRAP  —s«CSPNTF 
ADD #4,SP 
DELAY 25 sWAIT 
MOV #25, (PC)+ 
WORD 
MOV LSOLY, (PC)+ 
. WORD 
DEC -6(PC) 
BNE a4 
DEC “22(0C) 
DOCLN : ABORT lei les 
A CLN 
mov LSUNIT,RS ZLET RS := LSUNIT SHIFT 1 
;REPEAT :STORE ALL UNIT 
SUB #2,R5 LET <4 sNUMBERS IN DEVTBL. 
MOV RS. CEVTBL(RS) SLET DEVTBL(RS) := RS SHIFT <1 
ASR DEVTBL (RS) 
TST R5 SUNTIL RS EQ #0 
BNE 50343$ 
READEF #EF.PWR ZHAS THCPE BE A POWER FAILURE? 
TRAP csrére’’ os 
BNCOMPLETE INIT16 :BRANCH IF NOT. 
BCC INIT16 
INCB ss STahif ZIF SO = SET THE STARi FLAG. 
INCB  —- PWRFLG [IF SO - SET THE POWER FAIL FLAG. 
RFLAGS OPFLAG :READ AND STORE FLAGS SET aay OPERATOR 
me sit 
CLR R3 SLET R3 := #0 :CLEAR EVENT FLAG 
1sT8 PURFLG HIF POWER FAIL HAS NOT OCCURRED THEN: 
READEF #EF .NEW ;UPDATE PASS COUNT WHEN 
TRAP OCEREFB 
Pita avarig SAND DIAG UAS NEITHER STARTED 
BNE 50346$ , 
READEF #EF.RES NOR 
TRAP CSREFG 
BCS 503478 zIFCOND CC THEN :RESTARTED 
COM R3 :LET R3 := COMP R3 :D0 IT 
BR 50350$ 
INC R3 :SET 1ST PASS IF NEW PASS AND 


ZRESTARTING 


E 
| MISCELLANEOUS SECTIONS MACRO M1113 25-MAY-82 09:51 PAGE 20-62 


INITIALIZE SECTION SEQ 0108 

$138 021672 50350$: 

3194 021672 000401 BR 50351$ 

3195 021674 503468: 

3196 021674 005203 INC R3 sSET 1ST PASS IF NEW PASS AND 

3197 : STARTING 

3198 021676 50351$: 

3199 3D0 NOT UPDATE IT ON CONTINUE 

3200 021676 50345$: 

201 OR ON POWER FAIL 

3202 021676 50344$: 

3203 021676 004737 017060 JSR PC,FIRSTU zINIT DEVICE POINTER. 

3204 021702 005002 CLR R2 ;LET R2 := #0 2 INIT DEVICE COUNTER. 

3205 021704 50352$: ;WHILE DEVTBL(RS) NE #END DO 

3206 021704 026527 002604 177777 CMP DEVTBL(RS) ,#END 

3207 021712 001456 BEQ 50353$ 

3208 021714 005202 INC R2 sLET R2 := R2 + #1 

3209 021716 010500 MOV R5,RO sLET RO := RS SHIFT -1 

3210 021720 006200 ASR 0 

3211 021722 GPHARD R0,RO GET HARDWARE P TABLE a * oe" 
021722 104442 CSGPHRD 

3212 021724 103044 BCC 50354$ :IFCOND CS THEN 

3213 021726 011065 002514 MOV (RO), TSDB(RS) SAVE TSDB ADDRESS. 

3214 021732 012065 002524 MOV pg AAU sSAVE TSSR ADDRESS. 

3215 021736 062765 000002 002524 ADD TSSR(RS) 

3216 021744 012065 002534 MOV (aby: TSVCT(RS) SAVE INTERRUPT VECTOR ADDRESS. 

3217 021750 011065 003532 MOV (RO), TSUNT(RS) SAVE NUMBER OF DRIVE 

3218 021754 011037 003534 MOV (RO), sSAVE FOR PRINT OUT'S 

3219 021760 SETVEC TSVCTCRS) , TSSINT(RS) ,MINTPRI 
021760 012746 000340 MOV #INTPRI,-(SP) 

1764 016546 002554 MOV TSSINT(RS) ,=(SP) 
021770 016546 002534 MOV TSVCT(RS) ,=(SP) 
021774 012746 000003 MOV #3,-(SP 
022000 104437 TRAP CSSVEC 
022002 062706 000010 AOD #10,SP 
:SET UP Hed ta +0 ei CONDITIONS. 

3221 022006 005065 003472 CLR INTFLG(RS) 3CLEAR INTERRUPT FLA 

3222 022012 005703 TST R3 ACTUAL PASSCOUNT UPDATE PER R3 

3223 022014 001410 BEQ 50355$ 

3224 022016 005703 TST R3 zIF R3 LT #0 THEN 

3225 022020 002003 BGE 50356$ 

$559 022022 005265 003326 INC PASCNT(R5) sLET PASCNT(RS) := PASCNT(RS) + #1 

3228 022026 000403 BR 50357$ 

3229 022030 50356$: 

3230 022030 012765 000001 003326 MOV #1, PASCNT(RS) sLET PASCNT(RS) := #1 

3232 022036 50357$: 

3233 

3234 022036 50355$: 

3235 

3236 022036 50354$: 

3237 022036 005065 003376 CLR RECCNT(R5) CLEAR RECORD COUNT 

$535 022042 004737 017126 JSR = PC,NEXTU :D0 IT FOR ALL DEVICES. 

3240 022046 000716 BR 50352$ 


3241 022050 503538: 





——" 





a 
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INITIALIZE SECTION SEQ 0109 
3242 
3243 022050 005702 TST R2 SIF THERE ARE NO UNITS: 
244 022052 901026 BNE 50360$ 
245 022054 PRINTF #AUDRPM ;PRINT ALL UNITS DROPPED, | 
022054 012746 005114 mov MAUDRPM, = (SP) 
022060 012746 000001 MOV #1,-(SP) 
022064 010600 MOV SP,RO 
022066 104417 pong CSPNTF 
022070 062706 000004 #4,SP 
3246 022074 DELAY 200. :G0 TO SUPERVISOR, WAIT > SECONDS. 
022074 012727 000310 MOV #200. ,(PC)+ 
$5596 000000 . WORD 
022102 013727 002116 MOV LSDLY, (PC)+ | 
022106 000000 . WORD 
022110 005367 177772 DEC -6(PC) 
022114 001375 BNE 4 
022116 005367 177756 DEC =22(PC) 
022122 001367 BNE .-20 
3247 022124 BREAK :G0 TO SUPERVISOR, CHECK TTY. 
104422 TRAP  C$BRK 
3248 022126 DOCLN 7D0 CLEAN CODE + ABORT PASS. 
ee 022126 104444 TRAP  CSDCLN 
3250 022130 50360$: 
352) 
3253 022130 SETPRI #PRIOO sLOWER CPU PRIORITY TO 0 
022130 012700 000000 MOV #PR100, RO 
022134 104441 TRAP  C$SPR | 
3254 022136 105737 002213 TSTB IREC ;IF ERROR RECOVERY IS ENABLED 
3255 022142 001033 BNE 1$ 
3256 022144 032737 000020 003536 BIT #ADR,OPFLAG 
3257 022152 001027 BNE 1$ 
3258 022154 004737 017060 JSR PC,FIRSTU ;AND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST 
3259 022160 50362$: sWHILE THERE ARE MORE DEVICES: 
3260 022160 026527 002604 177777 CMP DEVTBL (RS) ,#END 
3261 022166 001421 BEQ 1$ 
3262 022170 105037 003530 CLRB  =—« TRAPD4 ZCLEAR TRAP FLAG 
3263 022174 SETVEC #4,4TRAP4,#INTPRI sSET VECTOR 4,PRIORTY 26 
022174 012746 000340 MOV #INTPRI,-(SP) 
022200 012746 023706 MOV #TRAPG, (SP) 
022204 012746 000004 MOV #4,-(SP) 
022210 012746 000003 MOV #3,-(SP) 
022214 104437 TRAP CSSVEC 
022216 062706 000010 Apo #10,SP 
:START 3.5 MINUTE COUNTE 
3265 022222 012737 000001 003436 MOV #1, TIME1 ZINCR TIME] FROM #1 TO #25 ™ #1 
3266 022230 000404 BR 50365$ 
3267 022232 000137 023060 1$: JMP 50363$ 
3269 022236 50366$: 
3270 022236 005237 003436 INC TIME1 
3271 022242 50365$: 
3272 022242 023727 003436 000025 CMP TIME1, #25 
3273 022250 003134 BGT 4$ 
3274 022252 012775 002340 002514 MOV #GSCPK ,aTSDB(RS) ZAND GET UNITS STATUS 


3275 022260 DELAY 25 sWAIT 


























Ww 
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¥SSRNaRSS 


02235 
3281 022354 
3282 022362 
3283 022364 
3284 022366 
022366 


3285 
3286 022370 
022370 


3287 

3288 022372 

3289 022376 
022376 


022424 


022456 
3292 022460 
022460 


022464 
3293 022466 
3294 022472 
3295 022474 
3296 022500 

022500 
022504 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


104444 
105037 
012746 
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000025 
002116 
177772 
177756 


000004 
003530 
003366 
002524 


005543 
000002 


000006 
002604 


003530 
000340 
023706 
000004 
000003 
000010 
002524 
000025 
002116 
177772 
177756 


000004 
003530 
003366 


002524 
005543 


017366 


2$: 


CLRVEC 
TSTB 
BEQ 
INC 
PRINTF 


CLRB 
SETVEC 


TST 
DELAY 


CLRVEC 


TSTB 
BEQ 


INC 
PRINTF 





He 
TRAPD4 
2$ 


FTLCNT(RS) 
#NODEV, TSSR(RS) 


DEVTBL (RS) ,DROPN 
R5,R0 


RO 


TRAPD4 
#4 ,ATRAPSG ,#INTPRI 


@TSSR(RS) 
25 


R4 
TRAPD4 
3$ 


FTLCNT(RS) 
#NODEV, TSSR(RS) 


sCLEAR VECTOR AT 4 


:1FB TRAPD4 NE #0 THEN 


sLET FTLCNT(RS) := 
PRINT ERROR 


FTLCNT(RS) + 


SAVE # OF UNIT TO BE DROPPED. 


;RO=LOGICAL DEVICE 
DROP THE UNIT 


TRAP 
3 EXEC BGNDU-ENDDU CODE IF IDU = 0 


D0 CLEAN SABORT 


sCLEAR TRAP FLAG 
SET VECTOR 4,PRIORTY a6 


sCHECK FOR ADDRESS 
sWAIT 


sCLEAR VECTOR AT 4 


TRAP 


MOV 
TRAP 


2 1FB TRAPD4 NE #0 THEN 


:LET ay eb 73 
PRINT ERRO 


FTLCNT(RS) + 


MOV 
MOV 


SEQ 0110 
#25, (PC)+ 
LSDLY, (PC)+ 
-6(PC) 
74 
-22(PC) 


-720 


#4,RO 
CSCVEC 


#1 
TSSR(RS) = (SP) 
(SP) 


C$D0DU 


CSOCLN 


#INTPRI,-(SP) 


#10,SP 


#25, (PC)+ 
LSDLY, (PC)+ 
-6(PC) 

24 

~22(PC) 

. -20 

#4 e RO 
CSCVEC 

#1 


TSSR(RS) .=(SP) 
#NODEV,-(SP) 
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| INITIALIZE SECTION SEQ 0111 
| 022510 012746 000002 MOV #2,-(SP) 
| 022514 010600 MOV P-RO 
022516 104417 TRAP —-CSPNTF 
022520 062706 000006 ADD #6,SP 
3297 O22e4 016537 002604 017366 MOV DEVTBL (RS) ,DROPN ZSAVE # OF UNIT TO BE DROPPED. 
3298 022532 010500 MOV R5,RO [RO=LOGICAL DEVICE NUMBER 
3299 022534 006200 ASR R 
3300 022536 DoDU ~—s RO ;DROP THE UNIT 
022536 104451 TRAP  C$DODU 
3301 : EXEC BGNDU-ENDDU CODE IF IDU = 0 
3302 022540 DOCLN [D0 CLEAN SABORT 
022540 104444 TRAP  CSDCLNN 
3304 022542 003127 4$: BGT 503678 
3306 022544 004737 007766 3$: JSR PC, SETDEF SET UNIT NUMBER 
3307 022550 010475 002514 MOV R4aTSDB(RS) 
3308 022554 DELAY 25 
022554 012727 000025 MOV #25, (PC)+ 
022560 00 .WORD 0 
022562 013727 002116 MOV LSDLY, (PC)+ 
022566 . WORD 
022570 005367 177772 DEC -6(PC) 
022574 001375 BNE 24 
022576 005367 177756 DEC -22(PC) 
022602 001367 BNE .-20 
309 022606 012775 002340 002514 MOV #GSCPK ,aTSDB(RS) ZAND GET UNITS STATUS 
3310 022612 DELAY 25 WAIT 
022612 012727 000025 MOV #25, (PC)+ 
022616 000000 . WORD 
022620 013727 002116 MOV LSDLY, (PC)+ 
022624 000000 .WORD 0 
022626 005367 177772 DEC ~6(PC) 
022632 001375 BNE a 
022634 005367 177756 DEC =22(PC) 
022640 001367 BNE - 
3311 022642 032775 000200 002524 BIT #TS.SSR,aTSSR(RS) TIF #TS.SSR SETIN @TSSR(RS) THEN 
3312 022650 001420 BEQ 50370$ 
3313 022652 032775 000100 002524 BIT #TS.OFL,aTSSR(RS) TIF #TS.OFL NOTSETIN @TSSR(RS) THEN 
3314 022660 001001 BNE 50371$ 
3315 022662 000457 BR 50364$ EXIT COUNTER WHEN UNIT ON LINE 
3317 022664 50371$: 
3318 022664 PRINTF #OFLINM, TSNP :PRINT UNIT OFF LINE EVERY 10 SEC 
22 013746 003534 MOV TSNP,=(SP) 
022670 012746 005456 MOV #OF LINM, -(SP> 
022674 012746 000002 MOV #2,-(SP5 
022700 010600 MOV SP-R 
022702 104417 TRAP — CSPNTF 
3319 022704 062706 000006 ADD #6,SP 
3320 022710 50372: 
3322 022710 000412 BR 50373$ 
3323 022712 50370$: 
3324 022712 PRINTF #NRDYM, DEVTBL (RS) 
022712 016546 002604 MOV DEVTBL (RS) ,.-(SP) 
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INITIALIZE SECTION SEQ 0112 
022716 012746 023656 MOV #NRDYM, -(SP) 
022722 012746 000002 MOV #2,-(SP) 
022726 010600 MOV SP,RO 
022730 104417 TRAP CSPNTF 

_— 022732 062706 000006 ADD #6,SP 
3326 022736 | 50373$: 
3327 022736 012737 000001 003440 MOV #1, TIME2 ZINCR TIME2 FROM #1 TO #13 BY 41 
3328 022744 000402 BR 50374$ 
3329 022746 50375$: 
3330 022746 005237 003440 INC TIME2 
3331 022752 503748: 
3332 022752 023727 003440 000013 CMP TIME2,#13 
3333 022760 003016 BGT 503768 
3334 020762 DELAY 100. ZWAIT FOR UNIT TO BE SET ON-LINE 
022762 012727 000144 MOV #100.,(PC)+ 
022766 000000 . WORD 
022770 013727 002116 MOV LSDLY, (PC)+ 
022774 000000 WORD 
022776 005367 177772 DEC -6(PC) 
023002 001375 BNE 4 
023004 005367 177756 DEC =22(PC) 
023010 001367 BNE .-20 
3335 023012 BREAK sALLOW TERMINAL INTERRUPT 
023012 104422 TRAP  C$BRK 
3336 023014 000754 BR 50375$ 
3337 02306 50376$: 
3338 023016 000137 022236 JMP 50366$ 
3339 023022 50367$: 
3340 023022 50364$: 
3341 023022 CLRVEC #4 ;CLEAR VECTOR AT 4 
023022 012700 000004 MOV #4,RO 
023026 104436 TRAP  C$CVEC 
3342 023030 023727 003436 000025 CMP TIME1, #25 zIF OFF LINE FOR 3.5 MINUTES 
3343 023036 003404 BLE 503778 
3344 023040 004737 012734 JSR PC,MOVMSG :GET MESSAGE PACKET 
sa02 023044 004737 013430 JSR PC,TCC1 sPRINT ERROR AND DROP OFF LINE UNIT 
3347 023050 50377$: 
;REPEAT UNTIL ON LINE OR TIMED OUT. 
edd 023050 004737 017126 JSR PC,NEXTU :SET UP FOR NEXT UNIT. 
3351 023054 000137 022160 JMP 50362$ 
3353 023060 50363$: 
3354 023060 50361$: 
3355 023060 105737 003527 TSTB PWRFLG ;IFB PWRFLG EQ #0 THEN 
3356 023064 001026 BNE 50400$ 
3357 023066 MEMORY DATAWT sREQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS. 
023066 104431 TRAP CSMEM 
023070 010037 003406 MOV RO, DATAWT 
3358 023074 013737 003406 003410 MOV DATAWT, sDATARD :SET RD BFR ADDRESS 
3359 023102 062737 004000 003410 ADD #DATCNT ,DATARD 
3360 023110 027727 160272 004000 CMP @DATAWT.#DATCNT | ;WHEN NOT ENOUGH FREE MEMO AVAILABLE 
3361 023116 002011 BGE 50401$ 
3362 023120 PRINTF #MEMOM WARN OPERATOR 
023120 012746 023166 MOV #MEMOM, -(SP) 
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INITIALIZE SECTION SEQ 0113 
023124 012746 000001 Movs #t.=<SP) 
093130 010600 MOVs SP“RO 
093132 104417 TRAP CSPNTF 
136 062706 000004 ADD #4 SP 
3363 023140 DOCLN ;AND ABORT PASS 
023140 104446 TRAP _CSDCLN 
364 :DIAG MUST BE RE=LOADED IN A CPU WITH LARGER MEMO 
5365 023142 504018: 
3367 023142 504008: 


3 
3369 023142 10503 


5037 002214 CLRB CHGFLG :CLR CHANGE CMD SEQ TBL FLAG. 
3370 023146 012703 003526 MOV #ENDFLG,R3 ZLET R3 i= #ENDFL 
3371 023152 004737 012664 JSR PC, CLRERR CLEAR ALL FLAGS. 
3372 023156 105037 003527 CLRB PWRFLG ZCLEAR THE PoUER FAIL FLAG. 
3374 023162 EXIT INIT 
023162 104432 TRAP CSEXIT 
023164 000104 «WORD 110012-. 
3375 023166 045 101 106 MEMOM: .ASCII /ZAFREE MEMO TOO SMALL FOR RD-WR BFRSZN/ 
023171 122 105 105 
023174 040 115 105 
023177 115 117 040 
023202 124 117 117 
023205 040 123 115 
023210 101 114 114 
023213 040 106 117 
023216 22 040 122 
023221 10 055 127 
023224 2 040 102 
023227 106 122 123 
023232 045 116 
3376 023234 045 101 122 eASCIZ /%ARE-LOAD IN LARGER MEMOZN/ 
023237 105 055 114 
023242 117 101 104 
023245 040 111 116 
023250 040 114 101 
023253 122 107 105 
023256 122 040 115 
023261 105 115 117 
023264 045 116 000 
3377 - EVEN 
3378 
3379 023270 ENDINIT 
02327 L10012: 
2 023270 104411 TRAP CSINIT 
3381 -SBTTL AUTO DROP SECTION 
3383 
3384 SECTION EXECUTED AFTER THE INIT CODE WHEN ‘‘ADR’’ FLAG IS SET BY OPERATOR 
3385 SSECTION CHEKS FOR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 
3386 :FROM INTERFACE 
387 :- 
3388 
3389 023272 BGNAUTO 
023272 LSAUTO:: 





san 
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3390 

3391 023272 004737 

3392 023276 

339 oseere 026527 
02 ETH 

105037 

012746 


023334 062706 
3397 023340 017502 
3398 023344 

023344 012700 

023350 104436 
3399 023352 105737 
3400 023356 001423 
3401 023360 005265 
3402 023364 

023364 016546 


3408 0234 000452 
023426 012775 
34 737 


PATI TT TSS 
{RuraTSs 

See 

# 

rs 

So 

x 

3 


4 


pays 
SOUNNESS 

So 

3 

= 

S 

2 

= 


€ 
MACRO M1113 25=MAY=-82 09:51 PAGE 20-68 


017060 
002604 
003530 
000340 


000004 
003530 
003366 
002514 
023562 
000002 


000006 
002604 


002340 
012700 
000200 
000100 
003366 
003534 


005456 
000002 


000006 
017302 


003366 


177777 


017366 


002514 
002524 
002524 


50402$: 


50404$: 


50407$: 


50496$: 


SEQ 0114 
JSR PC,FIRSTU sFIND FIRST UNIT 
3 WHILE gh 2: NE #END DO : 
hee DEVTBL(R5) ,#END 
CLRB APD4 LET TRAPD4 :B= #0 
SETVEC "a, ATRAPS , #INTPRI sSET VECTOR 4 
MOV #INTPRI ,=(SP) 
MOV #TRAPG ,=(SP) 
MOV #4,-(S 
#3,-(SP) 
my CSSVEC 
#10,SP 
MOV @TSDB(RS) ,R2 sADDRESS TS05 INTERFACE 
CLRVEC #4 CLEAR VECTOR A 
MOV #4 ,RO 
TRAP CSCVEC 
TSTB TRAPD4 :1FB TRAPD4 NE #0 THEN 
BEQ 50404$ 
INC FTLCNT(RS) sLET FTLCNT(RS) := FILCNT(RS) + #1 
PRINTF #AUTODM, TSDB(RS) PRINT ERROR 


BR 
INC 


MOV TSDB(RS) ,-(SP) 


DEVTBL(RS) ,DROPN SAVE # OF UNIT ro BE DROPPED. 
a ;RO=LOGICAL DEVICE NUMBER 
RO sDROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 

TRAP C$D0DU 
50405$ 
= acme ar GET STATUS COMMAND 
#TS.SSR,ATSSR(RS) zIF #TS.SSR SETIN @TSSR(RS) THEN 
Sco ,G5t -STSenena cIF #TS.OFL SETIN @TSSR(RS) THEN 
FTLCNT(RS) sLET FTLCNT(RS) := FTILCNT(RS) + #1 


PRINTF #OFLINM, TSNP 
MOV TSNP,-(S?) 
MOV #OFLINM,-(SP) 
MOV #2,~(SP5 


MOV SP,RO 
TRAP CSPNTF 


ADD #6,SP 
JSR PC,DROPUA 
504108 
FTLCNT(RS) sLET FTLCNT(RS) := FTILCNT(RS) + #1 


PRINTF #NRDYM,DEVTBL(RS)- 


a+ A 


Ll 9 
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AUTO DROP SECTION SEQ 0115 
Oe sese 016546 002604 MOV DEVTBL (RS) ,-(SP) 
023526 012746 023656 MOV #NRDYM, -(SP) 
023532 012746 000002 MOV #2,-(SP) 
23536 010600 MOV SP,RO 
023540 104417 TRAP CSPNTF 
023542 062706 000006 ADD #6, 
3058 023546 004737 017302 JSR PC,DROPUA 
3428 023552 50410$: 
3 
3430 023552 50405$: 
335 023552 004737 017126 JSR PC,NEXTU 
3433 023556 000647 BR 50402$ 
sae 023560 50403$: 
3436 023560 ENDAUTO 
023560 L10013: 
3437 023560 104461 TRAP CS$AUTO 
3438 023562 045 101 102 AUTODM: .ASCII /ZABUS TRAP AT %06%N/ 
023565 125 123 040 
023570 124 122 101 
023573 120 040 101 
023576 124 040 045 
023601 117 066 045 
23604 116 
023605 045 101 111 e-ASCIZ /%ZAINTERFACE BAD OR NOT SET TO ABOVE AD%ZN/ 
023610 116 124 105 
23613 122 106 101 
023616 103 105 040 
023621 102 101 104 
023624 040 117 122 
023627 040 116 117 
023632 124 040 123 
023635 105 124 040 
023640 124 117 040 
023643 101 102 117 
023646 126 105 040 
023651 101 104 045 
023654 116 000 
3440 023656 045 101 125 NRDYM: .ASCIZ /%ZAUNIT %D1%A NOT RDY2N/ 
023661 116 111 124 
3664 040 045 104 
023667 061 045 101 
023672 040 116 117 
023675 124 040 122 
023700 104 131 045 
023703 116 000 
EVEN 
3 DEVICE BUS TRAP HANDLER 
: OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
3 0: NO TRAP 


06 105237 003530 TRAP4:: INCB TRAPD4;LET TRAPD4 :B= TRAPD4 + #1 
12 000002 RTI 








" 
© 


Attttttt3 
CONAUNEWN—O 


023714 
023714 


023714 


Be 


rs 
a 
° 
Mrr 
ws 
~“ 
Nm 
o 


ar66 023742 


68 023746 
og 023750 


3471 023750 
023750 
° 023752 


3 
3474 023754 
023754 
023754 


3484 023756 

P 023756 
3486 023756 
3487 023760 


3488 023762 
3489 aserre 


024014 


004737 
026527 


000764 


104432 
000002 


104412 


3 es ~ 
gh aes | 


017060 
002604 
012700 
002534 
017126 


177774 
002534 
017366 


005065 
000002 
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AUTO DROP SECTION 


177777 


002604 


9 


] 


SEQ 0116 | 
| 
-SBTTL CLEANUP CODING SECTION | 
2 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE END OF EACH PASS. 
BGNCLN 
LSCLEAN:: 
JSR PC,FIRSTU sFIND FIRST UNIT. 
50411$: gWHILE DEVFBL RS) NE #END DO 
CMP DEVTBL(RS) ,#END 
BEQ 50412$ 
JSR PC,WSSR sWAIT FOR UNIT READY OR TIMEOUT, 
CLRVEC TSVCT(RS) sRELEASE INTERRUPT VECTORS FOR ALL DEV. 
MOV TSVCT(RS), RO 
TRAP CSCVEC 
JSR PC,NEXTU sFIND NEXT UNIT. 
BR 50411$ 
50412$: 
EXIT CLN 
TRAP CSEXIT 
«WORD L10014-. 
ENDCLN 
L10014: 


TRAP CSCLEAN 
-SBTTL DROP UNIT SECTION 


4 THE yr SECTION Ke THE CODING THAT CAUSES A DEVICE 
:_TO NO LONGER BE TESTED. T CODE SHALL BE EXECUTED WHEN DODU 
sMACRO 15 CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 


BGNDU 
L$DU:: 
_ a. oRS :RS = LOGICAL DEVICE NUMBER X 2. 
MOV #NINUSE ,DEVTBL (RS) ;SET NOT IN USE FLAG FOR THE DEVICE. 
CLRVEC TSVCT(RS) SRELEASE THE INTERRUPT yy i Lae 
TSVCT(RS) RO 
CSCVEC 
PRINTF #DROPDM,DROPN PRINT DROP DEVICE MESSAGE 
MOV DROPN,~(SP) 


MOV #DROPDM,=(SP) 
MOV oe de 


MOV SPR 
TRAP CSPNTF 





024016 
3491 024022 


3493 

3494 024026 
024026 
024026 


3 
3504 024030 
024030 
3505 024030 

06 0240 

3508 024040 
040 
3509 024042 
3513 024064 
3514 024070 
3515 024074 
024074 


024122 


024126 
024126 
0 024130 
3521 
3522 
3523 024132 
024132 
024132 


MISCELLANEOUS SECTIONS 
DROP UNIT SECTION 


062706 
000167 
000000 


104453 


000167 
000000 


104452 


000006 
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EXIT DU 
~EVEN 
ENDDU 


002604 


002514 


003534 
000340 


000003 
000010 
003472 


002524 





L10015: 
-SBTTL ADD UNIT SECTION 


+ THE ADD-UNIT SECTION Or | CODING THAT CAUSES A DEVICE 


TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. IF 


: “EF.AUNIT' IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 


SEQ 0117 
ADD #6,SP 


«WORD JSJMP 
«WORD 110015-2-. 


TRAP C$Du 


isan BGNAU 
ney 7 RS = LOGICAL DEVICE NUMBER X 2. 
] 
MOV RO, DEVTBL(RS) sSTORE UNIT # IN DEVICE TABLE. 
GPHARD R0O,RO 3GET HARDWARE P TABLE FROM SUPER. 
TRAP CSGPHRD 
MOV (RO), TSDB(RS) sSAVE TSDB ADDRESS. 
MOV (RO)+, TSSR(RS) 3SAVE TSSR ADDRESS. 
ADD #2 TSSR(R5) 
MOV (RO), TSVCT(RS) ;SAVE INTERRUPT VECTOR ADDRESS. 
oe (RO), roe ee SA VE NUMBER OF DRIVE 
(RO), TSN sSAVE FOR PRINT OUT'S 
SETVEC TSVCTIRSD P ISSINT(RS) -MINTPRI 
MOV #INTPRI,-(SP) 
MOV TSSINT(RS) 7 (SP) 
MOV Hop 5 (SP) 
MOV #3,-(SP) 
TRAP CSSVEC 
ADD #10,SP 
3SET UP INTERUPT PROCESSING CONDITIONS. 
CLR INTFLG(RS) sCLEAR INTERRUPT FLAGS. 
EXIT AU 
eWORD JSJMP 
eWORD 110016-2-. 
EVEN 
ENDAU 
L10016: 


- TITLE HARDWARE TESTS 
-SBTTL TEST 1: BASIC FUNCTIONS. 


TRAP CSAU 
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Ww 

An 

Ww 
= 


wy 


5 024134 


7 024134 
024134 


3539 024134 
3540 024140 


1 
3542 024144 
024144 
024144 
3544 024146 


WwW WWW 
Ww VMnMuvin 
Ww Ss 
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3547 Oserco 
ase 16s 
024166 

3548 

3549 024170 


3564 
3565 Saka 


3566 
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105037 
105037 


104402 
004737 


006120 
004737 


004737 
er 


042765 
016546 


=—Ooo0oo 


+ 
ms 


03515 
03514 


017060 
007072 


007466 


0 

017060 
002604 
002544 


177477 
002564 


000003 
000010 
002574 
000003 


000010 


177777 


002564 
002574 
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SEQ 0118 
++ 
: TEST TO EXECUTE ALL TSOS FUNCTIONS. 
BGNMOD 
BGNTST 
T1:: 
CLRB «RANDOM sCLR THE RANDOM OPERATIONS FLAG. 
CLRB —«EXPBOT [CLR EXPECT BOT FLAG. 
Sis BGNSUB ;SUBTEST 1 = SET CHAR, DRIVE INIT, GET STATUS. 
TRAP C$B8SUB 
JSR PC,FIRSTU ZFIND THE FIRST UNIT. 
JSR PC SOF INIT ZINIT DEVICE 
ERRDF 2,NSSRM,STAERM :REPORT TSOS NOT READY 
TRAP CSERDF 
«WORD 2 
<WORD NSSRM 
.WORD STAERM 
11$: JSR PC MDSET :G0 DO SETUP'S 
MOV #BFSEQO,R2 SADR OF CMD SEQ. 
JSR PC,BFSE :SET UP CMD SEQ. 
JSR PC. EXALL sENECUTE CMD SEQ ON ALL DEVICES. 
JSR PC.FIRSTU D THE FIRST UN 
50413$: ;WHILE DEVTBL (RS) NE #END DO <UHILE THERE ARE MORE DEVICES: 
CMP DEVTBL (RS) ,#END 
BEQ 50414$ 
MOV MSGPKA(RS) ,R2 GET MSG PACKET ADR, 
ADD #12,R2 LET R2 := #12 ET XSTAT2 ADR, 
OV (R2), TSSCL(RS) SSTORE CODE LEVEL enon DTR BYTE, 
BIC #177700, TS5CL(RS) 
OV (R2), TS5SW(R5) ZSTORE SWITCH SETTINGS 
BIC #177477, TS5SW(R5) 
PRINTF #CODELM.DEVTBL(R5), TSSCL(RS) 
MOV TSSCL(RS) ,=(SP) 
MOV DEVTBL (RS) .-(SP) 
MOV #CODELM, =(S§ 
MOV 3,=(S 
MOV SP,RO 
— CSPNTF 
#10,SP 
:PRINT THE TSOS MICROCODE oe eveL. 
PRINTF #SWSET,DEVTBL(RS),TSSSW(R5) 
MOV TSSSW(RS) ,=(SP) 
MOV DEVTBL (RS) ,-(SP) 
MOV #SWSET,-(SP) 
MOV #3,-(SP) 
MOV SP,RO 
TRAP — CSPNTF 
ADD #10,SP 


ee a ee eee 





a 
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TEST 1: BASIC FUNCTIONS. SEQ 0119 
567 024340 50415$: 
208 024340 004737 017126 JSR PC,NEXTU sFIND NEXT UNIT. 
3570 024344 000723 BR 50413$ 
e273 024346 50414$: 
3573 024346 ENDSUB 
024346 L10020: 
3574 024346 104403 TRAP CSESUB 
3575 024350 BGNSUB sSUBTEST 2 = REWIND. 
024350 71.2: 
024350 104402 TRAP C$BSUB 
3577 024352 012702 025124 MOV #BFSEQ1,R2 ADR A CMD SEQ. 
3578 024356 004737 025026 JSR PC ,BFSEQ :SET UP CMD SEQ. 
3579 024362 004737 010226 JSR PC,EXALL EXECUTE CMD SEQ ON ALL DEVICES. 
3580 024366 105037 003526 CLRB STAFLG [CLEAR START FLAG 
3581 024372 ENDSUB 
024372 L10021: 
3582 024372 104403 TRAP CSESUB 
3583 024374 BGNSUB sSUBTEST 3 = WRITE/VERIFY. 
024374 71.3: 
7 024374 104402 TRAP C$BSUB 
3585 024376 012702 025136 MOV #BFSEQ2,R2 ADR OF CMD SEQ. 
3586 024402 004737 025026 JSR PC .BFSEQ ‘SET UP CMD SEQ. 
3587 024406 004737 010226 JSR PC,EXALL ZEXECUTE CMD SEQ ON ALL DEVICES. 
3588 024412 ENDSUB 
024412 L10022: 
3589 024412 104403 TRAP CSESUB 
3590 024414 BGNSUB ;SUBTEST 4 = WRITE TAPE MARK, ERASE. 
024414 71.4: 
3591 024414 104402 TRAP C$RSUB 
3592 024416 012702 025230 MOV api f R2 ZADR vd A SEQ. 
3593 024422 004737 025026 JSR PC,BFSEQ sSET UP CMD SEQ. 
3594 024426 004737 010226 JSR PC,EXALL ‘SEE CUTE CMD SEQ ON ALL DEVICES. 
3595 Oseeas ENDSUB 
024432 L10023: 
024432 104403 TRAP CSESUB 
3597 024434 BGNSUB ;SUBTEST 5 = SPACE FILES. 
024434 71.5: 
024434 104402 TRAP C$BSUB 
0244 O12 708 025302 MOV #BFSEQ4,R2 ADR OF CMD SEQ. 
3600 024442 025026 JSR PC ,BFSEQ ;SET UP CMD SEQ. 
3601 024446 ives 010226 JSR PC,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3602 024452 ENDSUB 
024452 L10024: 
3603 024452 104403 TRAP CSESUB 
3604 024454 BGNSUB sSUBTEST 6 = SPACE RECORDS. 
024454 71.6: 
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BRoR RR 
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= 

o 
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. 

Fa 

= 


se 
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. 024532 
3625 024534 
024534 
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164402 
012702 


104403 


104402 
012702 
004737 
004737 


104403 


104402 
012702 


004737 
004737 


104403 


104402 


012702 
004737 
004737 


104403 


104402 
012702 


025470 
025026 
010226 


025522 
025026 
010226 


025554 
025026 
010226 


025576 


L10025: 


T1.7: 


L10026: 


71.8: 


L10027: 


71.9: 


L10030: 


71.10: 


L10031: 


71.11: 


PAGE 20-74 
MOV #BFSEQS ,R2 
JSR PC ,BFSEQ 
JSR PC,EXALL 
ENDSUB 
BGNSUB 
MOV #BFSEQ6 ,R2 
JSR PC ,BFSEQ 
JSR PC,EXALL 
ENDSUB 
BGNSUB 
MOV MBF SEQ7 ,R2 
JSR PC ,BFSEQ 
JSR PC,EXALL 
ENDSUB 
BGNSUB 
MOV MBF SEQ8 ,R2 
JSR PC ,BFSEQ 
JSR PC ,EXALL 
ENDSUB 
BGNSUB 
MOV #BFSEQ9,R2 
JSR PC,BFSEQ 
JSR PC ,EXALL 
ENDSUB 
BGNSUB 
MOV #BFSE10,R2 


TRAP C$BSUB 
zADR OF CMD SEQ. 
SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP C$ESUB 
SUBTEST 7 = WRITE RETRY. 
TRAP C$BSUB 


zADR OF CMD SEQ. 
SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 
SUBTEST 8 = READ REV RETRY. 
TRAP C$B8SUB 


sADR OF CMD SEQ. 
:SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 
SUBTEST 9 = READ FWD RETRY. 
TRAP C$BSUB 


zADR OF CMD SEQ. 
SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 
TRAP CSESUB 
SUBTEST 10= CLEAN. 
TRAP C$BSUB 
sADR OF CMD SEQ. 
SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP C$ESUB 
sSUBTEST 11 = WIV SWAPPED DATA BYTES. 
TRAP C$BSUB 


zADR OF CMD SEQ. 


SEQ 0120 


ee ee ee ae 
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TEST 1: BASIC FUNCTIONS. SEQ 0121 
3641 024602 004737 025026 JSR PC,BFSEQ :SET UP CMD SEQ. 
364¢ 024606 004737 010226 JSR PC EXALL SOR ITE/VERIFY RECORDS 1 AND 2. 
3643 024612 112737 000001 003520 MOVB  4#1.SWBFLG TENABLE BYTE SWAP 
3644 024620 004737 010226 JSR PC, EXALL SWRITE/VERIFY RECORDS "3 AND 4. 
3645 024624 105037 003520 CLRB  SWBFLG ‘DISABLE BYTE SWAPPING. 
3646 0246 ENDSUB 
024630 L10032: 
024630 104403 TRAP  C$ESUB 
3647 024632 013702 003406 MOV DATAWT,R2 ZINIT WRITE BUFFER POINTER. 
3648 024636 062702 000012 ADD #10.,R 
3649 02464 50416$: ;WHILE R2_NE DATAWT DO ;UNTIL 10 BYTES HAVE BEEN SWAPPED. 
3650 024642 020237 003406 CMP R2,DATAWT 
3651 024646 001402 BEQ 50417 
se28 024650 000342 SWAB -(R2) 3SWAP DATA BYTES IN WRITE BUFFER. 
3654 024652 000773 BR 50416$ 
3655 024654 50417$: 
3656 024654 105237 003523 INCB =: T1SWB sSET T1 SWAP BYTES FLAG FOR “‘CKDATA’’ SUBR 
3658 024660 BGNSUB ;SUBTEST 12 = READ SWAPPED DATA BYTES. 
024660 11.12: 
024660 104402 TRAP  C$BSUB 
3659 024662 012737 104401 003420 MOV ROR. CHDURD :C(MD IS READ REV. 
3660 024670 004737 016130 JSR EXC * VERIFY ODD LENGTH SWAP (RECORD 4). 
3661 024674 012737 000012 002336 MOV wid CADPKT#CP, CNT ‘CHANGE BYTE COUNT T 
3662 024702 004737 016130 JSR PC, VFEXC : VERIFY EVEN LENGTH SWAP (RECORD 3). 
3663 024706 112737 000001 003520 MOVB #1.SWBFLG TENABLE BYTE SWAPPING. 
3664 024714 012737 000011 002336 MOV #1i, <CHDPKTCP. CNT [CHANGE BYTE COUNT TO 9. 
3665 024722 004737 016130 JSR PC,V ZVERIFY ODD LENGTH SWAP (RECORD 2). 
3666 024726 012737 000012 002336 MOV #13-CHDPKT*CP. CNT [CHANGE BYTE COUNT T 
3667 024734 004737 016130 JSR PC, VFEXC ZVERIFY EVEN LENGTH SWAP (RECORD 1). 
3668 024740 012737 104001 003420 MOV #RDF , CMDWRD [CMD IS READ F 
3669 024746 004737 016130 JSR PC, VFEXC VERIFY EVEN LENGTH SWAP (RECORD 1). 
3670 024752 012737 000011 002336 MOV #11, CMDPKT+CP. CNT SCHANGE BYTE COUNT TO 9. 
3671 024760 004737 016130 JSR PC, VFEXC sVERIFY ODD LENGTH SWAP (RECORD 2). 
3672 024764 105037 003520 CLRB © SWBFLG [DISABLE BYTE SWAPPING. 
3673 024770 012737 000012 002336 MOV #12, CMDPKT+CP. CNT [CHANGE BYTE COUNT TO 10. 
3674 024776 004737 016130 JSR PC, VFEXC VERIFY EVEN feces SWAP (RECORD 3). 
3675 025002 012737 000011 002336 MOV #11, CMDPKT+CP. CNT :CHANGE BYTE COUNT TO 
3676 025010 004737 016130 JSR PC, VFEXC SVERIFY ODD LENGTH SWAP (RECORD 4). 
3678 025014 ENDSUB 
025014 L10033: 
a 025014 104403 TRAP  CSESUB 
3680 025016 105037 003523 CLRB =s-:‘T1SwWB :CLEAR T1 SWAP BYTES FLAG 
3682 025022 EXIT TST 
025022 104432 TRAP —- CSEXIT 
<i 025024 000574 «WORD 110017-. 
3684 ; SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE. 
3685 : IN PUT S: R2 = FWA OF COMMAND SEQUENC 
3686 : OUTPUTS: 
3687 : REGISTERS: 
3688 : CALLS: 
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TEST 1: BASIC FUNCTIONS. SEQ 0122 

3690 025026 012701 003540 eres : MOV #CMDSEQ, sINIT SEQ TABLE ADDRESS. 
3691 02503 302008: _ (R2) NE #END DO sWHILE THERE ARE MORE COMMANDS: 
3692 025032 Oe eee 177777 (R2) ,MEND 

3693 025036 001402 BEO $ 
3694 025040 012221 MOV (R2)+,(R1)+ sMOVE COMMANDS TO SEQ TABLE. 
3696 025042 000773 BR 50420$ 
3697 025044 50421$: 
3698 025044 012711 177777 MOV WEND, (R1) sSTORE END OF SEQUENCE CODE. 
3699 025050 000207 RTS PC sRETURN. 
es 
$006 ; BASIC FUNCTION COMMAND SEQUENCE 
3704 025052 140004 BFSEQO: .WORD SCH sSET CHAR. 200. (1) 
3705 025054 000200 200 
3706 025056 000001 1 


3707 025060 000000 0 
3708 025062 100013 DRI sDRIVE INIT. (2) 
3709 025064 000001 1 
3710 025066 000001 1 
3711 025070 000000 0 
3712 025072 140004 SCH :SET CHAR. 20 (3) 
3713 025074 000020 20 
3714 025076 000001 1 
3715 025100 000000 0 
16 025102 100017 GES 2GET STATUS. (4) 
3717 025104 000001 1 
3718 025106 000001 1 
719 025110 000000 0 
20 025112 140004 SCH zSET CHAR. 40. (5) 
1 025114 000040 40 
3722 025116 000001 1 
3723 025120 000000 0 
$hS¢ 025122 177777 -WORD END 
3726 025124 102010 BFSEQ1: RwD sREWIND TWICE. (6) 
3727 025126 000001 1 
3728 025130 000002 2 
3729 025132 000000 0 
ie 025134 177777 -WORD END 
3732 025136 104105 BFSEQ2: WIV sWRITE/VERIFY PAT 1. (7) 
3733 025140 004000 DATCNT 
37 25142 000001 
3735 025144 000001 1 
3736 025146 104105 WIV sWTV PAT 2. (8) 
3737 025150 004000 DATCNT 
3738 025152 000001 
3739 025154 000002 2 
3740 025156 104105 WTV sWTV PAT 3. (9) 
3741 025160 004000 DATCNT 
3742 025162 1 1 
3743 025164 000003 3 
3744 025166 104105 WIV sWTV PAT 4. (10) 
3745 025170 004000 DATCNT 
3746 025172 000001 1 





en - = 
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BASIC FUNCTI SEQ 0123 
3747 025174 000004 4 
3748 025176 104105 WIV sWTV PAT 5. (11) 
749 025200 904000 DATCNT 
750 025202 000001 1 
751 025204 000005 5 
3752 025206 104105 WIV sWTV PAT 6. (12) 
3753 psasig 004000 DATCNT 
3754 025212 000001 
755 025214 000006 
56 025216 104105 WIV sWTV PAT O. (13) 
7 025220 004000 DATCNT 
3758 025222 000001 
3759 025224 000000 0 
ere? 025226 177777 -WORD END 
3762 025230 100011 BFSEQ3: WM sWRITE TAPE MARK. (14) 
3763 025232 000001 1 
3764 025234 000001 1 
3765 025236 000000 0 
3766 025240 104005 WRT sWRITE 10 RECORDS. (15) 
3767 025242 004000 DATCNT 
3768 025244 000010 10 
3769 025246 000001 1 
3770 025250 100411 ERS sERASE 10 TIMES. (16) 
3771 025252 000001 1 
3772 025254 000010 10 
3773 025256 000000 0 
3774 025260 100011 W™™ sWRITE TAPE MARK. (17) 
3775 025262 000001 1 
3776 025264 000001 1 
3777 025266 000000 0 
3778 025270 101011 WTR zWTM RETRY (18) 
3779 025272 000001 1 
3780 025274 000001 1 
3781 025276 000000 0 
shes 025300 177777 -WORD END 
3784 025302 105410 BFSEQ4: SFR sSPACE 2 FILES REV. (19) 
02 000002 ¢ 
0 
td sSPACE 2 FILES FwD. (20) 
5 
te zSPACE 2 FILES REV. (21) 
6 
ti sSPACE 2 FILES Fwd. (22) 
2 
0 
-WORD END 


BF SEQ5: ” sREWIND. (23) 
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TEST 1: BASIC FUNCTIONS. SEQ 0124 
3804 025350 000001 1 
3805 025352 000000 0 
3806 025354 104010 SRF sSPACE 7 RECORDS FWD. (24) 
3807 025356 000007 7 
3808 025360 000001 1 
3809 025362 000000 0 
3810 025364 104410 SRR sSPACE 7 RECORDS REV. (25) 
3811 025366 000007 7? 
3812 025370 000001 1 
3813 025372 000000 0 
3814 025374 104010 SRF sSPACE 7 RECORDS FWD. (26) 
3815 025376 000001 1 
3816 025400 000007 7 
3817 025402 000000 0 
3818 025404 104410 SRR sSPACE 7 RECORDS REV. (27) 
3819 025406 000001 1 
3820 025410 000007 7 
3821 025412 000000 0 
38S6 025414 177777 -WORD END 
3824 025416 102010 BF SEQ6: RwD sREWIND. (28) 
3825 025420 000001 1 
3826 025422 000001 1 
3827 025424 0 
3828 025426 104005 WRT sWRITE. (29) 
025430 004000 DATCNT 
3830 025432 000001 1 
3831 025434 000001 1 
3832 025436 105005 RR sWRITE RETRY. (30) 
3833 025440 004000 DATCNT 
34 025442 000001 
3835 025444 000001 1 
025 100011 WIM WRITE TAPE MARK. 
3837 025450 000001 1 
025 000001 1 
3839 025454 000000 0 
0 025 105410 SFR zSPACE 1 FILE REV. 
3841 025460 000001 1 
3842 025462 000001 1 
3843 025464 000000 0 
sec8 025466 177777 -WORD END 
3846 025470 104401 BF SEQ7: RDR sREAD REV. (31) 
3847 025472 004000 DATCNT 
3848 025474 000001 1 
3849 025476 000001 1 
3850 025500 105401 R sREAD NEXT REV. (32) 
3851 025502 004000 DATCNT 
3852 025504 000001 
3853 025506 000001 
3854 025510 125401 RNF sREAD NEXT FWD. (33) 
3855 025512 004000 DATCNT 
3856 025514 000001 
3857 025516 000001 1 
Saco 025520 177777 -WORD END 
3860 025522 104001 BF SEQ8: RDF zREAD FWD. (34) 





—— 
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TEST 1: BASIC FUNCTIONS. SEQ 0125 
3861 025524 004000 DATCNT 
386, Os2368 000001 1 
3863 0255 000001 1 
3864 025532 105001 RPF sREAD PREVIOUS FWD. (35) 
3865 025534 004 DATCNT 
3866 025536 00000 1 
3867 025540 000001 1 
3868 025542 125001 RPR READ PREVIOUS REV. (36) 
3869 025544 004000 DATCNT 
3870 025546 000001 1 
3871 025550 000001 1 
se7¢ 025552 177777 -WORD END 
3874 025554 101012 BFSEQ9: .WORD CLN CLEAN. (37) 
3875 025556 000001 1 
3876 025560 000001 1 
3877 025562 000000 0 
3878 025564 102010 RWD sREWIND (38) 
3879 025566 000001 1 
025570 000001 1 
3881 025572 000000 0 
seas 025574 177777 -WORD END sEND OF SEQUENCE. 
3884 025576 104105 BFSE10: WIV sWRITE/VERIFY EVEN LENGTH. (39) 
3885 025600 000012 12 
025602 1 
3887 025604 000000 0 
025606 104105 WIV sWRITE/VERIFY ODD LENGTH. (40) 
3889 025610 000011 11 
3890 025612 000001 1 
3891 025614 000000 0 
3892 025616 177777 eWORD END 
3893 -EVEN 
3894 
3895 025620 ENDTST 
025620 L10017: 
3896 025620 104401 TRAP CSETST 
3897 -SBTTL TEST 2: DATA RELIABILITY. 
3898 
3899 p++ 
Sony 3; TEST TO CHECK THE DATA RELIABILITY OF THE TSOS. 
3902 025622 BGNTST 
025622 T2:3 
3904 025622 112737 000001 003515 MOVB #1, RANDOM sSET THE RANDOM PEAT IONS FLAG. 
3905 025630 105037 003514 CLRB EXPBOT [CLEAR EXPECT BOT FLAG. 
3906 025634 005037 003456 CLR WIMFLG [CLEAR WRITE TAPE MARK FLAG 
3907 025640 004737 017060 JSR PC,FIRSTU [FIND THE FIRST UNIT. 
3908 025644 004737 007072 JSR PC, SOFINIT s INIT DEVICE 
3909 025650 103404 BCS 11 
3910 025652 ERRDF 2,NSSRM,STAERM REPORT TSOS NOT READY 
025652 104455 TRAP CSERDF 
025654 000002 -WORD 2 
025656 004536 - -WORD NSSRM 
025660 006120 -WORD STAERM 
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391 
3912 025662 
391 


3920 025716 
a5) 025722 


3923 025726 


3929 025746 

3030 
3931 025752 
025752 

3932 
3933 025754 

34 
3936 025762 
3937 025770 
3938 025774 
3939 026000 
3941 026004 
soc8 026006 
3943 026006 
3944 026012 


949 

seat 026032 
3951 026034 
3952 026036 
ad 026040 


6104 
3965 026112 
3966 026116 
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TEST 2: DATA RELIABILITY. 


sssssseses 
Ua Movny 
ONE NN fw 


37 


000763 
012711 
004737 


012701 


3 


mee + 
—=O— 
Mwruing 

NN 
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mrow 
WOWWWWN WW 


NINO NNN NS 
Ne NNN 
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007466 
004000 


003430 
003430 
010162 
003526 
010206 
003526 


104105 
004000 
177740 


000007 


003740 
ot ak 


026136 


177777 
010226 


003540 


003524 
027612 


026176 
177740 


010206 


003434 


003544 
003554 


003517 


118: 


50422$: 


504238: 


50424$: 


50425$: 
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JSR PC .MDSET 
MOV #DATCNT,R2 
DEC R2 
MOV R2,LENMSK 
COM LENMSK 
JSR PC,SETCH 
TST8  -STAFLG 
BEQ 50424 

JSR  PC,SETR 
CLRB STAPLG 
MOV MTV, (R1)+ 
MOV #DATCNT, (R1)¢ 
MOV #RNOPSC.R2 
COM R2 
MOV R2, (R1)+ 
MOV #RANP, (R1)+ 
BREAK 
CMP R1,A#SEQEND 
BGE 50425$ 
ADD RANB , RANS 
MOV R 
BIC #177741,R2 
JSR PC, @RANCMD (R2) 
BR 50424$ 
MOV #END, (R1) 

JSR PC, EXALL 
MOV #CMDSEQ,R1 
TST R2 
BEQ 50423$ 
INCB- = ALLEOT 
NOP 
NOP 
NOP 
JSR PC, TSWEOT 
JSR PC,,RANRD 
MOV #RNOPSC , CMDSEQ+4 
COM CMDSEQ+4 
MOV CMDSEQ+4, CMDSEQ+14 
MOV #END, (R15 
JSR C,EXALL 
CLRB = ALLEOT 
MOVB «#1, RPTFLG 
MOV #CMDSEQ,R1 


JSR PC,SETRW 


:1FB STAFLG NE wi THEN 


sLET STAFLG :B= #0 


SEQ 0126 
:G0_DO SETUP’S 
zSET UP THE RECORD LENGTH MASK, 
sALLOW MAXIMUM BUFFER. 


MD 1 = SET CHARACTERISTIC. 
zIF STARTING THEN: 


3 CMD2=REWIND 
zCLR START FLAG. 


: DO A SUPVSR BREAK FIRST. 
TRAP CS$BRK 


sFILL SEQ TBL WITH RANDOM CMDS. 


;LET RANS := RANS + RANB 


3SET UP A RANDOM CMD + BRF. 


sSTORE END OF SEQUENCE CODE IN TABLE. 
:GO EXECUTE ALL CMDS IN SEQUENCE TABLE. 


:INIT CMD SEQ TBL POINTER, 
;REPEAT UNTIL EOT IS REACHED 


sFLAG ALL UNITS @ EOT 


WRITE ONE —- BEYOND EOT ON ALL UNITS 


$0 THAT SHORTER READ STOP DISTANCE 
; SHALL posit ION HEAD IN CLEAN IRG GAP 
;READ REV THAT EXTRA ar, TO RE-POSITION THE TAPE 
ET UP READ REV/FWD CMDS, 


7S 
:# OF RECORDS FOR READ REV. 


2# OF RECORDS FOR READ FORWAR 

STORE END OF SEQUENSE CODE iN N SEQ TABLE. 
GO EXECUTE READ ap OF LAST N RECORDS. 
CLEAR ALL UNITS @ EOT 

REQUEST ries “ones REPORT DURING REWIND. 
sINIT SEQ TBL POINTER, 

STORE REWIND IN SEQ fBL, 


—a 


TEST 2: 





3967 Sebice 

3968 026126 

969 

3970 026132 
026132 
026134 


3979 026146 
3980 026150 
3981 026152 
3982 026154 
3983 026156 
3984 0261 


4 

4018 026302 
4019 026306 
4020 

4021 


012711 
004737 


104432 
000320 


026176 


177777 
010226 


003456 
026346 


00343. 
177740 


000007 
003740 


104001 
004000 


000007 


003432 


HARDWARE TESTS MACRO M1113 25-MAY-82 09:51 
DATA RELIABILITY. 


RANCMD : 


RANRD: : 


1$: 


2$: 


PAGE 20-81 Pony 
SEQ 0127 
MOV #END, (R1) sSTORE END IN SEQ TBL, 
JSR PC,EXALL EXECUTE REWIND CMD ON ALL UNITS 
EXIT TST 


TRAP CSEXIT 
«WORD 1L10034-. 


ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST. 


RANWV sWRITE/VERIFY. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 


oon: TO SET UP READ COMMANDS IN SEQUENCE TABLE. 


OUTPUTS: 

REGISTERS: Re 

CALLS: 

TST WITMFLG sWAS LAST CMD A WRITE? 
BEQ 1$ 3NO,GO AHEAD 

JSR PC ,RAWTM sYES PUT DOWN TAPE MARK 
JSR PC,RASFR sAND SPACE FILE REV 

CLR WIMFLG 3s THEN CLEAR THE FLAG 
CMP R1,4SEQEND 

BGE 2s 

MOV #RDR, (R1)+ sSTORE READ REV CMD. 
MOV #DATCNT, (R1)+ 2 SET BRF 10 MAX FOR READ RANDOM LENGTHS. 
ADD RANS , RANB sLET RANB : = RANB + RANS 

MOV RANB,R sLET R2 : = RANB CLR.BY #RNOPSC 
BIC #RNOPSC ,R2 

MOV R2,(R1)+ :SET RANDOM # OF OPERATIONS. 
MOV #MRANP, (R1)+ RANDOM PATTERN, 

CMP R1 »MSEQEND 

BGE 2. 

MOV RDF, (R1)+ sSTORE READ FWD CMD. 

MOV #DATCNT, (R1)+ SET BRF TO MAX TO READ RANDOM LENGTHS. 
MOV R2,(R1)+ SET RANDOM # OF OPERATIONS. 

wy - #RANP, (R1)+ RANDOM PATTERN. 


SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENTE TABLE, 








L 10 
HARDWARE TESTS MACRO m1i13 25=MAY=82 09:51 PAGE 20-82 
TEST 2: DATA RELIABILITY SEQ 0128 
105 é THEN A WRITE TAPE MARK AND SPACE FILE REVERSE. 
4024 ; INPUTS: 
4025 : OUTPUTS: 
4026 : REGISTERS: 
rey é CALLS: 
4029 026310 g12721 104005 RANWR:: MOV WWRT, (R1)* :STORE WRITE CMD. 
4030 026314 004737 026422 JSR PC,RANW <ST ORE BREF, # OF OPERATIONS, PATTERN. 
4031 026320 005737 003456 TST WIMFLG LAST CHD A WRT? 
4032 026324 001002 BNE 1$ ZYES,RETUR 
4033 026326 005237 003456 INC WIMFLG NO, SET THe FLAG 
4034 026332 000207 1$: RTS PC 
i 
4037 3 SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
4038 3 INPUTS: 
4039 3 OUTPUTS: 
4040 3 REGISTERS: 
toes 5 CALLS: 
4043 026334 012721 104105 RANWV:: MOV MUTV,(R1)+ sSTORE WRITE/VERIFY CMD. 
4044 026340 004737 026422 JSR PC,RANW sSTORE BRF, # OF OPERATIONS, PATTERN. 
4045 526344 000207 RTS PC 
doce 
4048 2 SUBROUTINE TO SET UP A WRITE TAPE MARK IN THE SEQUENCE TABLE. 
4049 ; INPUTS: 
4050 3 OUTPUTS: 
4051 : REGISTERS: 
1036 CALLS: 
4054 026346 020127 003740 RAWTM:: CMP R1,#SEQEND 
4055 026352 002007 BGE 1$ 
4056 026354 012721 100011 MOV #WTM, (R1)+ ;STORE WRITE TAPE MARK CMD. 
4057 026360 012721 000001 MOV #1,(R1)+ :BRF 
4058 026364 012721 000001 MOV #1.(R1)+ :# OF OPERATIONS 
4059 026370 005721 TST (Ri)+ [SKIP PATTERNS 
4060 026372 000207 1$: RTS PC 
4062 3 SUBROUTINE TO SET UP A SPACE FILE REVERSE IN THE SEQUENCE TABLE. 
4063 : INPUTS: 
4064 ; OUTPUTS: 
4065 : REGISTERS: 
rts 3 CALLS: 
4968 026374 020127 003740 RASFR:: CMP R1,#SEQEND 
4069 026400 002007 BGE 1$ 
4070 026402 012721 105410 MOV #SFR,(R1)+ gSTORE SPACE FILE REVERSE 
4071 026406 012721 000001 MOV #1,(R1)+ BRF 
4072 026412 012721 000001 MOV #1.(R1)+ :# OF OPERATIONS 
4073 026416 005721 TST (Ri)+ :SKIP PATTERNS 
4074 026420 000207 1$: RTS PC 
isn 
4077 2 SUBROUTINE TO STORE BRF, # OF OPERATIONS, PATTERN IN COMMAND 


4078 : SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 





eee 


| 


| 


TEST 2: 


4079 


4090 026446 

4091 026452 

4092 

4093 

4094 

4095 026454 
026454 
026454 


4 
4103 026456 
026456 


4) 
4105 026456 
4106 026464 


026 
026510 
026512 


026552 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
6 
4 
4 
4 
4 


— ts ed a a te I Ht 


Rofononoty PA) met et et et os os 


012721 


104401 


112737 
105037 


004737 
004737 
103404 


7 
105037 
104422 


020127 
002003 
004737 
000772 


004000 
003434 
003432 
177740 


900007 


000001 
003514 


017060 
007072 


007466 
004000 
003430 


003526 


003740 
026310 


003432 


003515 


HARDWARE TESTS MACRO M1113 25-MAY-82 09:51 
DATA RELIABILITY. 


RANW: : 


L10034: 


-SBTTL 
p++ 
: TEST 


T3:: 


11$: 


50426$: 


50427$: 


mM 10 


PAGE 20-83 
INPUTS: 
OUTPUTS: 
REGISTERS: R2 
CALLS: 
MOV #DATCNT, (R1)4 :SET BRF TO MAX FOR PATTERN GENERATION. 
; RANDOM M BRF WILL BE GENERATED FOR EACH RECORD. 
ADD RANS ,RANB “LET R RANB + RANS 
MOV LET Roe = RANB CLR.BY #RNOPSC 
BIC #RNOPSC ,R2 
MOV R2,(R1)¢ SET RANDOM # OF OPERATIONS. 
MOV #RANP, (R1)+ [RANDOM PATTERN 
RTS PC eR URN 
EVEN 
ENDTST 
TRAP  CSETST 
TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
TO WRITE RECORDS FROM BOT TO EOT. 
BGNTST 
MOVB #1, RANDOM zSET THE RANDOM OPERATIONS FLAG. 
CLRB § EXPBOT ;LET EXPBOT :B= #0 3CLEAR EXPECT BOT FLAG. 
JSR PC, FIRSTU ZFIND THE FIRST UNIT. 
JSR PC SOFINIT SINIT DEVICE 
ERRDF 2,NSSRM,STAERM yREPORT TSOS NOT READY 
TRAP  CSERDF 
«WORD 2 
“WORD NSSRM 
“WORD  STAERM 
JSR PC,MDSET :G0 DO SETUP'S 
MOV #DATCNT,R2 [SET UP THE RECORD LENGTH MASK. 
MOV R2 LENMSK yALLOW MAXIMUM BUFFER. 
COM LENMSK 
JSR PC, SETCH :C(MD 1 = SET CHARACTERISTIC. 
JSR PC.SETR ;CHD2=REW 
CLRB STAFLG :LET STAFLG :B= # SCLEAR START FLAG 
BREAK : DO A SUPVSR BREAK FIRST. 
TRAP C$BRK 
;WHILE THERE IS MORE ROOM IN SEQ TABLE: 
CMP R1,#SEQEND 
BGE 50430$ 
JSR ae RANWR ;STORE A WRITE CMD IN SEQUENCE TABLE. 
BR 50427$ 





SEQ 0129 








| HARDWARE TESTS MACRO M1113 25=MAY=82 09:51 PAGE 20-84 
TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
4128 026566 50430S: 

4129 026566 012711 177777 MOV #END, (R1) sSTORE END OF SEQUENCE CODE IN TABLE. 
4130 026572 004737 010226 JSR PC, EXALL SEXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
4131 026576 012701 003540 MOV #CMDSEG,R1 zINIT SEQ TBL SOIN TER. 

4132 026602 005702 TST Re ZREPEAT UNTIL EOT IS REACHED 
4133 026604 001761 BEQ 50426$ 

4134 026606 105237 003524 INCB  — ALLEOT ;SET ALL UNITS @ EOT FLAG 
4136 026612 000240 NOP 
4136 026614 000240 NOP 
4137 026616 000240 NOP 
4138 026620 004737 027612 JSR PC, TSWEOT :WRITE ONE RECORD BEYOND EOT ON ALL UNITS 
4139 380 THAT SHORTER READ STOP DISTANCE 
4140 SSHALL POSITION HEAD IN CLEAN IRG GAP 

141 ;READ REV THAT EXTRA REC TO RE~POSIT ION TAPE 

4142 026624 105037 003524 CLRB = ALLEOT 3CLEAR ALL UNITS @ EOT FLAG 

4143 026630 004737 010206 JSR PC,SETRW ;STORE REWIND IN SEQ TBL, 

4144 026634 012711 177777 MOV #END, (R1) TORE END IN SEQ TBL, s 

4145 026640 737 010226 JSR PC,EXALL TEXECUTE REWIND CMD ON ALL UNITS 3 

4147 ° 

4148 026644 EXIT TST * 
026644 104432 TRAP —CSEXIT 

000002 «WORD 110035-. 

4149 

4150 EVEN 

4152 026650 ENDTST 
026650 L10035: 
026650 104401 TRAP = CSETST 

i 

4138 -SBTTL TEST 4: READ COMPATABILITY/READ UTILITY. 

4157 344 

4138 : TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 

4160 

4161 026652 BGNTST 

6162 026652 T4:: 

4163 026652 112737 000001 003515 MOVB #1,RANDOM ;SET THE RANDOM OPERATIONS FLAG. 

4164 026660 112737 000001 003514 MOVE = #1. EXPBOT :SET EXPECT BOT FLAG. 

4166 026666 004737 017060 JSR PC,FIRSTU :FIND THE FIRST UNIT. 

4167 026672 004737 007072 JSR PC. SOF INIT ZINIT DEVICE 

4168 026676 103404 BCS 11 

4169 026700 ERRDF 2,NSSRM,STAERM ;REPORT TSOS NOT READY 
026700 104455 TRAP CSERDF 
026702 000002 .WORD 2 
026704 004536 .WORD NSSRM 
026706 12 -WORD STAERM 

4171 026710 004737 007466 11$: JSR PC,MDSET :G0 DO SETUP'S 

4172 026714 004737 010162 JSR pC.SETCH CMD = SET CHARACTERISTIC. 

4173 026720 004737 010206 JSR PC.SETR > CMD2=REW! 

4174 026724 105037 003526 CLRB STAFLG sLET STAFLG :B= #0 SCLEAR START FLAG 

4175 026730 012721 104001 MOV ARDF, (R1S+ 7CMD3 = READ FORWARD. 








N 10 





re 


B 11 
| HARDWARE TESTS MACRO M1113 25-MAY=82 09:51 PAGE 20-85 
| TEST 4: READ COMPATABILITY/READ UTILITY. SEQ 0131 
| 4176 026734 3721 004000 MOV #DATCNT, (R1)+ :SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
| 4177 026740 b1395 077777 MOV #77777, (R1)+ [SET RECORD COUNT TO MAX FOR WHOLE TAPE. 
4178 026744 199751 900007 MOV #RANP, (R1)+ ‘PATTERN = RANDOM. 
4179 026750 012711 177777 MOV #END, (R1) SSTORE END OF SEQUENCE CODE IN TABLE - 
4180 026754 004737 010226 JSR PC, EXALL SEXECUTE ALL cHDS IN Sed TBL ON ALL UNITS. 
4181 026760 105237 003524 INCB  ALLEOT [FLAG TO ALLOW ALL UNITS AT EOT 10 READ REV 
4182 026764 012701 003540 MOV #CMDSEQ,R1 ‘INIT CMD SEQ TBL POINTER. 
4183 026770 012721 104401 MOV #RDR, (R1)+ :CMD1 = READ REVERSE. 
4184 026774 012721 004000 MOV #DATCNT, (R1)+ ‘SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
4185 027000 012721 077777 MOV #77777, (R1)+ [RECORD COUNT = MAX FOR WHOLE TAPE. 
4186 027004 012721 000007 MOV #RANP, (R1)+ {PATTERN = RANDOM. 
4187 027010 012711 177777 MOV #END, (R1) TSTORE END OF SEQUENCE CODE IN TABLE. 
4188 027014 004737 010226 JSR PC ,EXALL :GO EXECUTE READ REV. OF ENTIRE TAPE. 
4189 027020 105037 003524 CLRB  — ALLEOT SCLEAR ALL UNITS @ EOT FLAG 
4191 027024 EXIT TST 
027024 104432 TRAP — C$EXIT 
027026 000002 .WORD 110036-. 
4192 
4193 EVEN 
4194 
4195 027030 ENDTST 
027030 L10036: 
ee 027030 104401 TRAP  CSETST 
4197 .SBTTL TEST 5: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4199 p44 
4200 : TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4202 
4203 027032 BGNTST 
027032 TS:: 
4205 027032 105037 003515 CLRB —- RANDOM :CLEAR RAMDOM MODE FLAG. 
4206 027036 112737 000001 003514 MOVB #1,EXPBOT [SET EXPECT BOT FLAG. 
4208 027044 004737 017060 JSR PC,FIRSTU :FIND THE FIRST UNIT. 
4209 027050 004737 007072 JSR PC. SOFINIT SINIT DEVICE 
4210 027054 103404 BCS 11 
4211 027056 ERRDF 2,NSSRM,STAERM :REPORT TSOS NOT READY 
027056 104455 TRAP  CSERDF 
027060 000002 «WORD 2 
027062 004536 “WORD NSSRM 
cont 027064 006120 “WORD STAERM 
4213 027066 004737 007466 11$: JSR PC,MDSET :G0 DO SETUP'S 
4214 027072 113737 002216 003521 MOVB _—~PIRE, IRE [MOVE INHIBIT RFC ERROR REPORT FLAG. 
4215 027100 004737 010162 JSR PC,SETCH [CMD 1 = SET CHARACTERISTI 
4216 027104 013737 002220 003542 MOV CHAR, CMDSEQ+2 [MOVE CHAR CODE FROM P TBL TO SEQ TBL. 
4217 027112 012702 002222 MOV #CMDD,.R2 :R2 POINTS TO CMD2 IN SOFT P TABLE. 
4218 027116 004737 027570 JSR PC ,PTCMDS [MOVE CMD 2 FROM P TBL TO SEQ TBL. 
4219 027122 004737 027570 JSR PC“PTCMDS [MOVE CMD 3 FROM P TBL TO SEQ TBL. 
4220 027126 004737 027570 JSR PC: PTCMDS [MOVE CMD 4 FROM P TBL TO SEQ TBL. 
4221 027132 004737 027570 JSR PC“ PTCMDS :MOVE CMD 5 FROM P TBL TO SEQ TBL. 
4222 027136 004737 027570 JSR PC“ PTCMDS [MOVE CMD 6 FROM P TBL TO SEQ TBL. 
4223 027142 004737 027570 JSR PC“ PTCMDS [MOVE CMD 7 FROM P TBL TO SEQ TBL. 
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EXECUTE 
oe gers 


02716 


SS 


Sooooooooeo 


E at ae dt de dt ae bea Beat at bt bt bt at 
So 
ror 
~“ 
N 
Nm 
So 


MOPsNoNonoponoforory 


4 
4245 027250 
4246 
4247 027252 
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OPERATOR SELECTED COMMAND SEQUENCE. 


004737 
005037 
105037 
012701 


021127 


022711 
001026 
062701 
011137 
012727 
000000 
013727 


026527 
001426 


027570 


177777 
000040 
000002 
003444 
003442 
000002 
003442 
003540 
003444 


000010 


000020 


000004 
003440 


000001 
002116 
177772 
177756 
003440 
000004 
011172 
003412 
gues 
003420 
017370 


003414 


100017 


017456 
000001 
017060 


002604 177777 


3$: 
504318: 


1$: 
2$: 


6$: 


7$: 


4$: 
504338: 


50435$: 


50436$: 
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JSR PC,PTCMDS 
CLR doP 
CLRB = STAFLG 
MOV #CMDSEQ,R1 
sWHILE (R1) NE #END DO 
CMP Ri) #END 
BEQ 432$ 
c ae C,(R1) 
BNE 6$ 
ADD #2,R1 :LET R1 := 
MOV (R1)+,JLOC 
CMP (R1)+,JLOOP 
BNE 
ADD #2,R1 
BR 3 
INC JLOOP 
MOV #CMDSEQ,R1 
DEC JLOC 
BEQ 
ADD #10,R1 
BR 2$ 
CMP ss #DLY.C, (R1) 
BNE 4$ 
ADD #4,R1 
MOV (Ri), TIME2 
DELAY 1 
DEC TIME2 
BNE 
ADD #4,R1 sLET R1 := R1 
BR s3$ 
JSR  PC,SETUP 
sWHILE NCNT LT NCNT1 DO 
MP NCNT,N 
BGE 50434 
JSR PC,CMDAC 
JSR PC.EXS 
CMP CMDWRD , AGES 
BNE 50435$ 
JSR PC,PRXST 
JSR PC, - CRHAE 
MOV 
JSR PC; FIRSTU 
ve DHILE *“DEVTBL(RS) NE #END DO 


DEVTBL(RS) ,#END 
BEQ 50437$ 


R1 + #2 


SEQ 0132 


sMOVE END CMD FROM P TBL TO SEQ TBL. 
LOOP COUNT. 


RT G 
LINIT SEQUENCE TABLE POINTER. 
WHILE THERE ARE CMDS LEFT IN SEQUENCE TBLE: 


21S THIS A JUMP CMD? 
R_IF NOT 


‘ : :POINT TO BRF. 
SAVE BRE (LOCATION) . 
ZHAS QOP COUNT BE SATISFIED? 


OOP COUNT. 
zINIT CMD SEQ TABLE POINTER. 
;DECR LOCATION COUN 


IF THIS IS THE RIGHT LOCATION TO JMP TO, GO SET 


:IF NOT, UPDATE SEQ POINTER TO NEXT CMD. 
:D0 IT AGAIN. 


sDELAY? 
zBR IF NOT. 
LOCATION OF N COUNT. 


sR1 = 

3SAV 

:GO TO SUPER-WAIT 1 MSEC. 
MOV #1,(PC)+ 
«WORD 
MOV LSDLY,(PC)+ 
- WORD 
DEC ~6(PC) 
BNE 74 
DEC -22(PC) 
BNE -720 

+ #4 a TO NEXT CMD. 

:GO CHECK NEXT CMD 


:GO SETUP THE COMMAND BLOCK. 
WHILE THERE ARE RECORDS REMAINING: 


sSTORE CMD ASCII IN ERROR MSG. 

ISSUE CMD TO ALL AWAIT INTS, CHECK STATUS. 
IF CMD IS GET STATUS THEN: 

sPRINT EXTENDED STATUS REGISTERS. 

3CHECK HALT Ay EACH CMD FLAG. 

set A ae cay S AT BOT/EOT. 


T. 
WHILE THERE ARE MORE UNITS: 





D 1 
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TEST 5: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0133 
4273 027420 032737 000400 003420 BIT #MOD.CO,CMDWRD z1f CMD IS REVERSE THEN: 
4274 027426 0014 BEQ 44 
4275 027430 032765 000002 003502 BIT #X0.BOT ,EOTFLG(RS) :1F NOT AT BOT THEN: 
4276 027436 001001 BNE 50441$ 
4g? 027440 005002 CLR R2 :CLEAR EOT/BOT FLAG. 
4279 02744 50441$: 
4280 027442 000411 BR 50442$ ZELSE IF CMD IS NOT REVERSE: 
4281 027444 50440$: 
4282 027444 032765 000001 003502 BIT #X0.EOT EOTFLG(RS) 
4283 027452 001404 BEQ 50443$ 
4284 027454 032737 000001 003420 BIT #CMD.CO,CMDWRD 
4285 027462 001001 BNE 50444$ 
4286 027464 50443$: 
:1f NOT AT EOT OR NOT A MOTION CMD THEN: 
4288 027464 005002 CLR R2 SLET R2 := #0 :CLEAR EOT/BOT FLAG. 
4290 027466 50444$: 
4291 
4292 027466 50442$: 
4093 027466 004737 017126 JSR PC,NEXTU ZFIND NEXT UN'T 
4295 027472 000746 BR 50436$ 
4296 027474 50437$: 
4297 027474 020227 000001 CMP R2,M1 yIF ALL UNIT ARE AT EOT/BOT THEN: 
4298 027500 001016 BNE 50445$ 
4299 027502 013737 003412 003414 MOV NCNT,NCNTI ZFORCE TERMINATION OF COMMAND. 
4300 027510 005237 003414 INC NCNTI 
4301 027514 105237 003524 INCB ALLEOT FLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D 
4302 027520 023727 003426 000002 CMP CMDLG, #2 :WHEN WRITING IS CURRENT COMMAND 
4303 027526 001002 BNE 50446$ 
4304 027530 004737 027612 JSR PC,TSWEOT GO WRITE/READ REV ONE RECORD BEYOND EOT 
4306 027534 50446$: 
4308 027534 000402 BR 50447$ 
4309 027536 50445$: | 
4310 027536 105037 003524 CLRB = ALLEOF yWHEN NOT ALL @EOT, CLEAR FLAG 
4312 027542 50447$: 
4313 027542 005237 003412 INC NCNT ZUPDATE RECORD COUNT. 
4314 027546 013737 003420 003424 MOV CMDWRD,PCMDWD  :SAVE PREVIOUS COMMAND WORD. 
4316 027554 000671 BR 50433$ 
4317 027556 50434$: 
4318 027556 004737 016044 JSR PC, VFYDAT z1f LAST CMD WAS A WRITE VERIFY, THEN GO 
4319 SVERIFY THE LAST N RECORDS OF DATA. 
4321 027562 000601 BR 50431$ 
4322 027564 50432$: 
4324 027564 EXIT TST 
027564 104432 TRAP  CSEXIT 
. 027566 000140 «WORD 110037-. 
4326 : SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 


4327 ; THE COMMAND SEQUENCE TABLE. 
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EXECUTE 


4338 027604 
4339 027606 
cece 027610 


4351 027622 
435 
4353 027626 


4369 

4370 027726 
027726 

. 027726 

4372 027730 

43 
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OPERATOR SELECTED COMMAND SEQUENCE. 


$ INPUTS: R2 = POINTER TO SOFT ‘'P’* TABLE 
: OUTPUTS: 
3 REGISTERS: R3. 
012203 PTCMDS: :MOV (R2)+,R3 3R3 = COMMAND TABLE INDEX. 
005303 DEC R3 
006303 ASL R3 
016321 003752 MOV A, agp (R1)+ sMOVE COMMAND WORD. 
012221 MOV (R2)+,(R 1)+ :MOVE # OF BYTES. 
012221 MOV (R2)+,(R1)+ *MOVE # OF OPERATIONS. 
012221 MOV (R2)+,(R1)+ sMOVE PATTERN CODE. 
000207 RTS PC 
3 > ha TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 
; OUTPUTS: 
3 re a 
3 CAL CMDAC ,EXSUB, CKHAE 
000240 TSWEOT:: NOP 
000240 NOP 
004737 010524 JSR PC,EXSUB sWRITE ONE RECORD BEYOND EOT 
004737 017456 JSR PC, CKHAE 3S0 THAT READ SHORTER STOP DISTANCE 
SHALL POSITION HEAD IN CLEAN IRG GAP 
012700 000002 MOV #2,R0 :SET UP COUNTER FOR EOT 
013737 003420 003424 1$: MOV CMDWRD ,PCMDWD PCMDWD := CMDWRD ;REPOSITION TAPE 
012737 104401 003420 MOV #RDR, CMDWRD TLET CMDWRD := #RDR BEFORE EXTRA RECORD 
012737 000004 003426 MOV #4,CMDL sBY READING REVERSE 
013737 003420 002330 MOV CMDWRD , CMDPKT sLET CMDPKT := CMDWRD CLR.BY #BRF.C 
042737 004000 002330 BIC #BRF.C,CMDPKT 
013737 002330 003422 MOV CMDPKT , CMDSAV sLET CMDSAV := CMDPKT ;THAT _RECORD TO ALLOW 
013737 3410 002332 MOV DATARD, CHDPKT+CP. ADL sNEX OMMAND IN THE 
004737 011064 JSR PC,CMDAC ;TABLE TO BE’ EXECUTED 
004737 010524 JSR PC.EXSUB 
004737 017456 JSR PC,CKHAE 
005300 DEC RO sFOUND EOT YET? 
001343 BNE NO, KEEP — 
0207 RTS PC :YES, RETUR 
EVEN 
ENDTST 
L10037: 
104401 TRAP CSETST 
ENDMOD 


- TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


y+ 
> THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 





SEQ 0134 





4383 


4 

4389 027730 
027730 
027732 

4391 027732 
027732 

027734 

7736 


027740 
4392 027742 
027742 


027764 
4394 027766 

027766 
43% 
4397 027770 
4398 030005 
4399 030014 
4400 


2 
4403 030036 
030036 


PARAMETER CODING 
HARDWARE PARAMETER CODING SECTION 


177564 
001032 

0005 
000777 


000302 


000130 
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; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
3 WITH THE OPERATOR. 


BGNHRD 
LSHARD: : 
GPRMA = TSSADR,0,0,160010,177564, YES 
GPRMD TSSVCT,2,0,777,60,776,YES 
GPRMD TSSUNT,4,0,1,0,1,NO 
EXIT HRD 
eNLIST BEX 
TSSADR: .ASCIZ /TSDB ADDRESS/ 
TSSVCT: .ASCIZ /VECTOR/ 
TSSUNT: .ASCIZ /SELECT DRIVE 0-1/ 
LIST BEX 
ENDHRD 
L10040: 
-SBTTL SOFTWARE PARAMETER CODING SECTION 


s+ 


Sete Ge Be Ge Ge Be & 
oe 
2 
m 
3 
P] 
Mm 
4 
m 
.— ] 
@ 
< 
4 
= 
mm 
wn 
Cc 
ml 
m 
xz 
< 
— 
wn 
o 
 ) 
> 
nn 
\~J 
= 
= 
> 
wn 
+ 
zz 
c 
o 


BGNSFT 


LSSOFT:: 


GPRML CLRM,0,1.,YES 


SEQ 0135 


«WORD L10040-LSHARD/2 


-WORD TSCODE 
«WORD TSSADR 
«WORD TSLOLIM 
-WORD TSHILIM 
WORD TSCODE 
eWORD TSSVCT 
WORD 777 
-WORD TSLOLIM 
«WORD TSHILIM 
«WORD TSCODE 
-WORD TSSUNT 
eWORD 1 

-WORD TSLOLIM 
«WORD TSHILIM 
«WORD TSCODE 
-EVEN 


«WORD L10041-L$SOFT/2 


-WORD TSCODE 
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SOFTWARE PARAMETER CODING SECTION 


030042 030644 
030044 000001 

4418 030046 GPRML 
000130 
030050 030663 
000400 


2 
4419 030054 GPRML 
030054 001130 
030766 
030060 000400 
4420 popes GPRML 
030062 001130 
030064 030712 
030066 000001 
4421 030070 GPRML 
030070 003130 
031042 
030074 000400 
4422 030076 XFERT 
004024 
4423 030100 GPRML 
030100 


002130 
030102 030736 
030104 000001 
4424 030106 NEXTSP: GPRML 
030106 003130 
110 031017 
112 000001 
114 
14 005130 
030116 031107 
000001 


03012 
4426 O30155 GPRML 


GPRML 


4427 Sst sp XFERF 
4428 030132 GPRMD 
030132 
030134 031140 
030136 77 
030140 000000 
03014 
4429 030144 GPRMD 
0301 


GPRMD 


GPRMD 
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RRVM,0,400, YES 


RCVERM,2,400, YES 


HAEM,2,1,YES 


IRECM,6,400, YES 


NEXTSP 
BADTM,4,1,YES 


DINTM,6,1,YES 


IREM,12,1,YES 


CHGM,10,1,YES 


ENDSP1 


CHARM, 14,0,377,0,777., YES 


CMD2M,16,D,37,1,33.YES 


BPCRM,20,D,-1,1.DATCNT, YES 


NUMBM,22,D,~-1,1,77777, YES 


CLRM 

1 
TSCODE 
RRVM 
400 
TSCODE 
RCVERM 
400 
TSCODE 
HAEM 


TSCODE 
IRECM 
400 
TSCODE 


TSCODE 
BADTM 
TSCODE 
DINTM 


TSCODE 
nen 


TSCODE 
CHGM 

1 
TSCODE 
TSCODE 
CHARM 
377 
TSLOLIM 
TSHILIM 
TSCODE 
CMD2M 
37 
TSLOLIM 
TSHILIM 


TSLOLIM 
TSHILIM 


Piatt UR RA Seis 
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SOFTWARE PARAMETER CODING SECTION 


030200 

4432 b30 os GPRMD PATTM,24,D,17,0,10,YES 
030212 

4433 030214 GPRMD CMD3M,26,D,37,1,33,YES 
030214 

4434 030226 GPRMD BPCRM,30,D,-1,1,DATCNT, YES 


030236 
4435 Osseo GPRMD NUMBM,32,D,-1,1,77777,YES 


000001 

030250 077777 
4436 030252 GPRMD PATIM,34,D,17,0,10, YES 

030252 016052 

030254 pol eee 


030262 
4437 030264 GPRMD CMD4M,36,D,37,1,33,YES 
030264 has 


030274 
4438 030276 GPRMD BPCRM,40,D,-1,1,DATCNT, YES 
03027; 


6 
030300 031173 
030302 177777 
030304 00000 


030306 
4439 Sats GPRMD NUMBM,42,D,-1,1,77777, YES 


000001 

030320 077777 
4440 030322 GPRMD PATIM,44,D,17,0,10, YES 

030322 022052 

030324 031225 

6 000017 





TSCODE 
NUMBM 


=1 
TSLOLIM 
TSHILIM 


TSCODE 
PATTM 
17 
TSLOLIM 
TSHILIM 
TSCODE 
CMD3M 


37 
TSLOLIM 
TSHILIM 


TSHILIM 
TSCODE 
NUMBM 


1 
TSLOLIM 
TSHILIM 


TSCODE 
PATTM 
17 
TSLOLIM 
TSHILIM 


TSCODE 
CMD4M 
37 
TSLOLIM 
TSHILIM 


TSCODE 
BPCRM 


TSLOLIM 
TSHILIM 


TSCODE 
NUMEM 
TSLOLIM 
TSHILIM 


TSCODE 
PATTM 
17 


SEQ 0137 


———______-—__--- 
11 
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SOFTWARE PARAMETER CODING SECTION SEQ 0138 
030330 000000 WORD TSLOLIM 
030332 000010 “WORD TSHILIM 
4461 030336 GPRMD CMDSM,46,D,37, 1,33, YES 
030334 023052 .WORD  TSCODE 
030336 031350 “WORD CMDS 
030340 000037 “WORD 37 
030342 000001 e WORD TSLOLIM 
030344 000033 "WORD TSHILIM 
4442 030346 GPRMD BPCRM,50,D,-1,1,DATCNT, YES 
030346 024052 .WORD TSCODE 
030350 031173 “WORD BPCRM 
030352 177777 "WORD <1 
030354 000001 “WORD TSLOLIM 
030356 004000 “WORD TSHILIM 
4443 030360 GPRMD NUMBM ,52,D,-1,1,77777,YES 
030360 025052 .WORD TSCODE 
030362 031205 “WORD  NUMBM 
030364 177777 "WORD =1 
030366 000001 "WORD TSLOLIM 
030370 077777 "WORD TSHILIM 
4444 030372 GPRMD  PATTM,54,D,17.0.10, YES 
030372 026052 .WORD TSCODE 
030374 031225 “WORD PATTM 
030376 000017 ~WORD 17 
030400 000000 "WORD TSLOLIM 
030402 000010 "WORD TSHILIM 
4445 030404 XFER  ENDSP2 
002004 - WORD TSCODE 
4446 030406 ENDSP1: XFER ENDSP3 
076004 .WORD TSCODE 
4447 030610 ENDSP2: GPRMD  CMD6M,56,D.37,1.33, YES 
030410 027052 .WORD TSCODE 
030412 031356 “WORD CMD6M 
030414 000037 "WORD 37 
030416 000001 "WORD TSLOLIM 
030420 000033 "WORD TSHILIM 
4448 030422 GPRMD BPCRM,60,D,-1,1,DATCNT, YES 
030422 030052 .WORD TSCODE 
030424 031173 “WORD BPCRM 
030426 177777 "WORD <1 
030430 000001 "WORD TSLOLIM 
030432 004000 “WORD © TSHILIM 
030434 031052 .WORD TSCODE 
030436 031205 “WORD  NUMBM 
030440 177777 "WORD <1 
030442 000001 "WORD TSLOLIM 
030444 077777 "WORD TSHILIM 
4450 030446 GPRMD PATTM,64,0,17,0.10.YES 
030446 032052 .WORD TSCODE 
030450 031225 “WORD PATTM 
030452 000017 “WORD 17 
030454 000000 "WORD TSLOLIM 
030456 000010 “WORD TSHILIM 
4451 030460 GPRMD CMD7M,66,D,37,1.33, YES 
030460 033052 .WORD TSCODE 
030462 031364 “WORD CMD? 


ee 


{ig Silage a ea ies in yi Oe 


J 
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SOFTWARE PARAMETER CODING SECTION 


030464 poset 


03047 
4452 Osnees GPRMD 6PCRM,70,D,-1,1,DATCNT, YES 


000001 
030502 004000 
4453 030504 GPRMD NUMBM,72,D,-1,1,77777,YES 


000001 
030514 077777 

4454 030516 GPRMD PATIM,74,D,17,0,10,VES 
030516 036052 
030520 031225 
030522 000017 
000000 


030526 000010 
4455 030530 GPRMD (CMD8M,76,0,37,1,33,YES 

0 037052 
030532 031372 
000037 


530536 000001 
030540 000033 
4456 030942 GPRMD BPCRM,100,D,-1,1,DATCNT, YES 


030552 
4457 ospeee 2 GPRMD NUMBM,102,D,-1,1,77777,YES 
030556 031205 
030560 
030562 000001 
077777 
4458 030566 GPRMD PATTM,104,D,17,0,10,YES 
030566 042052 
031225 
030572 000017 
000000 
030576 000010 
4459 030600 XFER ENDSP 
022004 
4460 030602 ENDSP3: GPRML TSMD,106,1,YES 
030602 


043130 
030604 031235 
000001 


030606 
4461 030610 XFERT ENDSP 
10 016024 
4462 030612 GPRML FAST,114,1,YES 
030612 046130 
4 031325 
000001 





° 37 
WORD TSLOLIM 
«WORD TSHILIM 


«WORD TSCODE 
«WORD 6PCRM 


WORD 
eWORD TSLOLIM 
WORD TSHILIM 


-WORD TSCODE 
1 

WORD TSLOLIM 

«WORD TSHILIM 


«WORD TSCODE 
«WORD _ 


«WORD TSLOLIM 
«WORD TSHILIM 
«WORD TSCODE 
WOR CMD&M 
«WORD 37 


«WORD TSLOLIM 
-WORD TSHILIM 


«WORD TSCODE 
«WORD BPCRM 
«WORD =1 
-WORD TSLOLIM 
«WORD TSHILIM 
-WORD TSCODE 
-WORD NUMBM 
-WORD =1 
«WORD TSLOLIM 
WORD TSHILIM 
WORD TSCODE 
-WORD PATIM 
WORD 17 
-WORD TSLOLIM 
«WORD TSHILIM 
«WORD TSCODE 


«WORD TSCODE 
TSMD 


WORD TSCODE 


-WORD TSCODE 
«WORD FAST 
wo 1 


SEQ 0139 


| PARAMETER CODIN 


ING 
SOFTWARE PARAMETER CODING SECTION 


4463 030620 
wuss 030692 Ore 

030622 045130 

030624 031305 

030626 000001 
4465 0306 

030630 006024 
4466 0306 

030632 044130 

030634 031266 

030636 000001 
4467 030640 

030640 002004 
4468 03064 

03 001004 
4469 030644 
4470 030644 

030644 
4471 
4472 
4473 
4474 030644 103 114 

75 030663 122 105 

4476 030712 110 101 
4477 030736 102 101 
4478 030766 120 122 
4479 031017 104 111 
4480 03104 111 116 
4481 03106 103 110 
4482 031107 111 116 
4483 031140 103 110 
4484 031165 103 115 
4485 031173 102 122 

031205 043 040 
4487 031225 120 101 
4488 031235 104 105 
4489 031266 122 105 
4490 031305 127 122 
4491 031325 061 060 
4492 
4493 
4694 
4495 
4496 0313 103 115 
4497 031342 103 115 
4498 031350 103 115 
4499 031356 103 115 

031 103 115 
$203 031372 103 115 





Sat a ak ak kk tk es ts ss ss 
a—SON S000] 9] NO 
OM (HENNA LS $0 OW FSW 


ENDSPS: 
ENDSP4: 


ENDSP: 


L10041: 


XFERT 
GPRML 


XFERT 
GPRML 


XFER 
XFER 


ENDSFT 
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ENDSP4 

- WORD 
WBF ,112,1, YES 

- WORD 

- WORD 

- WORD 
ENDSP 

- WORD 
RDBF,110,1,VES 

- WORD 

- WORD 

«WORD 
ENDSP 

«WORD 
ENDSP 

- WORD 

-EVEN 


BEX 
entice COUNTERS/ 


CMD/ 
/BAD TAPE SPOT DETECTION/ 


QUENCE/ 
/INHIBIT RFC_ERROR REPORT/ 
pp enteric CODE/ 


/BRF COUNT/ 

/# OF OPERATIONS/ 
/PATTERN/ 

/DEFAULT mise ee 


/READ BUFFERI 
/WRITE BUFFERING/ 
/100I1PS/ 


SRERAAAAAAAAEEAAAAEEARAEEEEAEREREAERARAAAERAEEREREEEAEEREREREREREEEEEEEEE 


TSCODE 
TSCODE 
WTF 


TSCODE 
TSCODE 
RDBF 

1 
TSCODE 
TSCODE 


SEQ 0140 





| ieee, Li 
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SOFTWARE PARAMETER CODING SECTION SEQ 0141 
4508 5 a oe Mane ae ee ee 
4509 3 PATCH AREA 
4510 ; AND AN ADJUSTMENT TO ACCOUNT FOR THE “‘LASTAD BIT7"’ HACK 
¢2i3 : DESCRIBED IN ‘‘SUPPRG.MEM'’ (FOR REV C). 

4513 

$216 031400 PATCH:: .BLKW 64. 

4517 032000 =. !377+1 

4519 

4520 032000 LASTAD 

-EVEN 

032000 000000 -WORD 0 
032002 000000 «WORD 0 
032004 LSLAST:: 

4353 032004 ENDMOD 

4523 -SBTTL HARD CODED P-TBL 

4524 

4525 3+ 

1359 DIAG IS PRE=PARAMETERIZED PER TBL 

4528 

4529 032004 BGNSETUP 1 

4530 032004 BGNPTAB 

000000 -WORD 0O 
000003 WORD £10044-./2-1 

032010 L10042: 

4531 032010 172522 172522 

4532 032012 000224 224 

4533 032014 600000 0 

4534 032016 ENDPTAB 
032016 L10044: 

4535 032016 ENDSETUP 

4536 


4537 000001 ~ END 











PARAMETER CODING 
SYMBOL TABLE 


ACK.C = 100000 G 
ADR = 


BGNFLG= 003460 
BINC 016030 
BITO = 000001 G 
1T00 = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITOS = 000010 G 
BIT04 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITO8 = 00 
BITO9 = 001000 G 
BITi = 2 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT15 = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT? = 000200 G 
BIT8 = 000400 G 
BIT9 = 001000 G 
BOE = 000400 G 
BORERS 015274 G 
BPCRM 031173 
RCPK 002344 G 
BRFCNT 003416 G 
BRF.C = 004000 G 
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BTADDR 0 


NN Sra 
FNVOAQNNUUNOO 
a 


La] 
= 
> 
z 
So 
Nm 
Nm 
Nm 
So 
AAHHOAGD AQ AAAAAAGA 


o 
= 
o 
wn 
> 
< 
S 
So 
W 
rs 
Nm 
— Nm o 
AAHQAQAAQAAAQAAAAAAAM AQA Q 


CP.CMD= 000000 G 





oO 
v 
o 
2 
“4 
iT 
oo 
oo 
oS 
oS 
eso 


C$SVEC= 000037 


oo 
hates 
rou 

oo 

Nm 


MAMINON— NO 
SONA HSN Ow 
AQAQAQAQAAAG 


a 


~N 
AD AAA 


Aa 


Nm 
AQAAAAG 


SEQ 0142 


N 
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SYMBOL TABLE 


SEQ 0143 
GSXFER= 000004 LSCCP O06) 08 G L10012 023270 NSSRM 004536 G RAWTM 026346 G 
GSYES = 000010 LSCLEA 023714 G L10013 023560 NUMBM 031205 RCVERM 030766 
002206 G L$CO 002032 G L10014 023754 NURTY1 005422 G RDBF 031266 
HAEM 030712 L$DEPO 002011 G L10015 024026 OFLINM 005456 G RDBUF 002314 G 
HALTM 004306 LSDESC 002136 G rines 024132 ONEFIL= 000001 RDF = 104001 G 
= LSDESP 002076 G L10017 025620 OPFLAG 003536 G = 104401 G 
HOE = 100000 G LSDEVP 002060 G L10020 024346 PP.C = 020000 G RECCNT 003376 G 
HRDCNT 003356 G LSDISP 002124 G L10021 024372 OSAPTS= 000000 RECLOG 003465 G 
HSSW (002320 G L$DLY 002116 G L10022 024412 OSAU = 000001 RECRED 007066 
IBE = 010000 G L$DTP_ 002040 G L10023 024432 OSBGNR= 000001 RECTAP 010064 G 
IpbU = G LSDTYP 002034 G L10024 024452 O$BGNS= 000001 RECUD 013020 G 
IER = 020000 LSDU 023756 G L10025 024472 O$DU_ = 000001 005017 G 
IE.C = 200 L$DUT 002072 G L10026 024512 OSERRT= 000000 RETRYC 003460 G 
INIT10 021302 L$DVTY 002164 G L10027 024532 OSGNSW= 000001 015450 G 
INIT15 021600 LSE 002052 G L10030 024552 OSPOIN= 000001 RFBC 002726 G 
INIT16 021620 LSENVI 002044 G L10031 024572 OSSETU= 000000 RFCERM 004521 G 
INTFLG 003472 G LSETP. 002102 G L10032 024630 PASCNT 003326 G RFREC 003026 G 
NTPRI= 000340 LSEXP1 002046 G L10033 025014 PATCH 031 G RF 003036 G 
INVRT 007724 G LSEXP4 002064 G L10034 026454 PATERN 003446 G RLEXM 004556 G 
IRE 003521 G LSEXP5 002066 G L10035 026650 PATRO 011642 G RNF = 125401 G 
REC 002213 G LSHARD 027732 G L10036 027030 PATR1 011700 G RNOPSC= 177740 G 
IRECM 031042 LSHIME 002120 G L10037 027726 PATR2 011720 G RNR = 105401 G 
IREM 031107 LSHPCP 002016 G L10040 030036 PATRS 011730 G RNYM 004753 G 
ISR = 000100 G L$HPTP 002022 G L10041 030644 PATR4 011754 G RPF = 105001 G 
IXE = 004000 G LSHW 002174 G L10042 032010 PATRS 011766 G RPR = 125001 G 
ISAU_ = 000041 L$ICP_ 002104 G L10044 032016 PATR6 012000 G RPTCNT 003462 G 
ISAUTO= 000041 LSINIT 021502 G MBR = 100012 G PATR7 012020 G RPTFLG 003517 G 
SCLN = 0 1 LSLADP 002026 G MDSET 007466 G PATR8 012052 G RPT1A 020410 
$DU = 1 L$LAST 032004 G EMOM 023166 PATTBL 011620 RPT1B 020465 
ISHRD = L$LOAD 002100 G MISCFG 003531 G PATTM 031225 RPTIC 20536 
ISINIT= 000041 L$LUN 002074 G MOD.CO= 000400 G PCMDWD 003424 G RPT1D 020607 
ISMOD = LSMREV 002050 G MOD.C1= 001000 G Pi 002216 G RPTIE 021035 
ISMSG = 000041 E 002000 G MOD.C2= 002000 G PNT = 001000 G RPTIF 020713 
ISPROT= 000040 L$PRIO 002042 G MOD.C3= 004000 G PRI = 002000 G RPT1G 020764 
ISPTAB= 1 LS$PROT 021274 G MOVMSG 012734 G PRIOO = 000000 G RPT1I 021161 
ISPWR = 000041 LS$PRT 002112 G MSGCNT= 000020 G PRIO1 = 000040 G RPT1J 021065 
PT = 000041 LSREPP 002062 G MSGPKA 002544 G PRIO2 = 000100 G RPTIK 021152 
ISSEG = 000041 L$REV 002010 G MSGPKT 002354 G PRIO3 = 000140 G RRANV 002205 G 
ISSETU= 000041 L$RPT 017546 G MSGPKO 002374 G PRI04 = 000200 G RRBC 002666 G 
ISSFT = 000041 L$SOFT 030040 G MSGPK1 002414 G PRIOS = 000240 G RRECL = 000020 G 
= 0 1 L$SPC_ 002056 G MSGPK2 2434 G PRI06 = 000300 G RRREC 003006 ¢ 
I$SUB = 000041 LS$SPCP 002020 G MSGPKS 002454 G PRI07 = 000340 G RUNR 003016 G 
ISTST = 000041 L$SPTP 002024 G MS.RFC= 000004 G PRXST 017370 G RRVM 030663 
JLOC 003444 G L$STA 002030 G MS.XSO= 000006 G PTCMDS 027570 G 014466 G 
JLOOP 003442 G L$S 002204 G MS.XS1= 000010 G PWRFLG 003527 G RTLRTIN 014612 
JMP = 000040 G LS$TEST 002114 G MS.XS2= 000012 G 03432 G RWCPK 002350 G 
JMP.C = 000040 G L$TIML 002014 G MS.XS3= 000014 G RANBC = 153624 G RWD == 102010 G 
JSJMP = 000167 L$UNIT 002012 G MS.XS4= 000016 G RANCMD 026136 003467 G 
LENMSK 003430 G L10000 002202 NCMD.C= 177740 G RANDOM 003515 G RSSAVE 003452 G 
LOE = 040 G L10001 002326 NCNT 003412 G ANP = 000007 G CNT 003336 G 
LOG 015544 G L10002 006116 NCNT1 003414 G RANRD 026176 G SCERM 004475 G 
LOT = 000010 G 110003 007070 NEXTSP 030106 RANS 003434 G H = 140004 G 
L$ACP 002110 G L10004 010040 NEXTU. 017126 G RANSC = 052561 G K 002474 G 
LSAPT 002036 G L10005 010046 NINUSE= 177774 G RANW 026422 G SCHCNT= 000012 G 
024030 G L10006 010054 NODEV 005543 G RANWR 026310 G SEQEND 003740 G 
L$AUT 002070 G L10007 010062 NOINTM 004670 G 026334 G SETCH 010162 G 
L$AUTO 023272 G L10010 021272 NRDYM 023656 RASFR 026574 G SETDEF 007766 G 








B 12 


teeta CODING MACRO M1113 25=MAY-82 09:51 PAGE 20-98 
SYMBOL TABLE 
SETRW 010206 G TRAP4 023706 G T$LAST= 000001 T1 024134 G WRTY 014614 G 
SETUP 011172 G TSAM 004705 G T$LOLI= 000000 T1SWB = 003523 G WRTYCT 003316 G 
= 105010 TSBA_ = 002514 G TSLSYM= 010000 11.1 024144 WRTYER 003464 G 
SFPTBL 002204 G TSC.FC= 177717 G SLTNO= 00000 T1.10 024554 WRTYFG 003463 G 
= 105410 TSC.TC= 177761 G EST= 17777 T1.11 024574 002776 G 
SOFINI 007072 G TSDB 002514 G TSNSO = 000000 71.12 024660 WSM = 140006 G 
= 10 G TSMD 031235 $NS1 = 000005 T1.2 024350 WSMBK 002506 G 
SRR = 104410 G TSNP 003534 G TSNS2 = 000002 T1.3 024374 WSSR 012700 G 
STAERM 006120 G TSSR 002524 G TSPCNT= 000000 11.4 024414 WT6F 031305 
STAER1 36 TSSREG 003454 G TSPTAB= 010043 11.5 024434 WIBUF 002316 G 
STAER2 006616 TSUNT 03532 G TSPTHV= 000001 71.6 024454 WIM = 100011 G 
STAERS 006675 TSVCT 002534 G TSPTNU= 000001 11.7 024474 WIMFLG 003456 G 
STAER4 006733 TS.A16= 000400 G TSSAVL= 177777 71.8 024514 WIR = 101011 G 
STAERS 006753 TS.A17= 001000 G TSSEGL= 177777 11.9 024534 WIV = 104105 G 
STAER6 006562 Ss = 002000 G SIZE= 000005 T2 025622 G WTVERM 004430 G 
STAER7 006530 TS.NXM= 004000 G SUBN= 000000 T3 026456 G WIYBRF 015066 
STAFLG 003526 G TS.OFL= 000100 G TSTAGL= 177777 14 026652 G WIYCMD 015062 
SVCGBL= 000000 TS.RMR= 010000 G TSTAGN= 010045 T5 027032 G WTYWRD 015064 
SVCINS= 000001 TS.SC = 100000 G TSTEMP= 000000 TSWEOT 027612 G ALWA= 00000 
SUB= 000000 TS.SPE= 020000 G EST= 000005 000200 G XSFALS= 000040 
SVCTAG= 000000 TS.SSR= 000200 G = 177777 UNIWLK 005653 XSOFFS= 0004 
SVCTST= 100 TS.UPE= 040000 G T$TSTS= 000001 = 100412 G XS$STRUE= 000020 
SWBFLG 003520 G TSIMD 002312 G TS$SAU = 010016 C 03470 G X0.B0T= 000002 G 
° 0000 G TSSADR 027770 TSSAUT= 010013 - URERM 005041 G -EOT= 000001 G 
SWSET 004231 G TSSCL_ 002564 G TSSCLE= 010014 VFEXC 016130 G X0.LET= 020000 G 
S$LSYM= 010000 TSSINT 002554 G TSSDAT= 010044 VFISU_. 016356 G -ONL= 000100 G 
TCCRA 013372 TSSINO 010034 G TS$DU = 01001 VFYCNT 003346 G XO.RLL= 01 G 
TCCcO 013412 G TSSIN] 010042 G TSSHAR= 010040 VFYDAT 016044 G X0.RLS= 040000 G 
TCC 013430 G TSSIN2 010050 G TSSHW = 01000 VFYFLG 003516 G X0.TMK= 100000 G 
TcC2 013446 G TSSINS 010056 G TSSINI= 010012 VFY.C = 100 G X0.WLK= 000 G 
TCCS 013556 G 002574 G TSSMSG= 01000 WAITF 007204 G X2.BFE= 000100 G 
TCC4 013574 G TSSUNT 030014 TS$PC = 00000 WLKCHK 007356 G X2.EFE= 000200 G 
TCCS 014210 G 030005 TSSPRO= 010011 WLKZRO 011734 0 100000 G 
TCC6 074306 G TSARGC= 000003 TSSPTA= 010043 G X3.DCK= 000010 G 
TCC? 014450 G TSCODE= 001004 Pl= = G 3.RNY= 157400 G 
TC2RTN 013554 TSERRN= 000002 TS$SOF= 010041 WRR = 105005 G 4.HSS= 10 G 
TIME? 003436 G TSEXCP= 000000 TS$SRV= 010007 WRREC 002766 G X4.RCE= 040000 G 
TIME2 003440 G TSFLAG= 000041 T$$SUB= 010033 WRT = 104005 G ZROPAT 011704 
TOERM 004453 G TSFREE= 032016 T$$SW = 010001 WRTCHK 007270 G SLSTIN= 000001 
TOOMM 004727 G TSGMAN= 000000 TSSTES= 010037 WRTCHR 007436 G SLSTTA= 000001 
TRAPD4 003530 G TSHILI= 000010 


- ABS. 032016 a9 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 26197 -s ( 103 PAGES) 
pests pale co3tg WORDS ( 78 PAGES) 
CVTSEAO, CVTSEAO/~SP=SVC34R/ML , TSVIE,CVTSEA. SRC/EN: AMA: ABS/DS : GBL 
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SEQ 0144 


